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ABSTRACT 

Distributed  decision  problems  arise  when  two  or  more  sensors  viewing  the 
same  phenomenon  must  work  cooperatively  to  draw  inferences  about  the 
observed  situation.  Typical  examples  are  in  target  detection  and  target 
classification.  Such  problems  are  characterized  by  distributed  processing  of 
information  and  communication  between  processors  over  a  limited  bandwidth 
data  link.  This  thesis  presents  some  statistical  distributed  decision  algorithms  and 
describes  the  implementation  of  one  of  them  on  a  set  of  loosely  coupled 
multiprocessor  clusters  which  simulate  the  distributed  environment  characterizing 
multisensor  decision  problems.  The  purpose  of  the  implementation  was  to 
investigate  problems  of  communication  and  process  synchronization  in  a  pair  of 
processor  clusters  performing  a  statistical  distributed  decision  algorithm.  This 
thesis  describes  how  these  communication  and  synchronization  problems  were 
addressed  and  solved. 
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I.    INTRODUCTION 

A.    PROBLEM  DESCRIPTION 

Modern  military  battle  systems  increasingly  rely  on  the  coordinated  use  of 
information  from  multiple  sources  to  assess  the  battlefield  situation.  Two  or  more 
remotely  located  sensors  may  observe  the  same  object  with  the  purpose  of 
drawing  inferences  about  the  observation.  A  common  example  is  in  the  use  of 
radars  to  detect  and  eventually  classify  objects  for  purposes  of  an  appropriate 
response.  In  this  type  of  scenario  it  is  important  to  process  the  acquired 
information  jointly  to  arrive  at  the  optimum  or  near  optimum  decision. 

A  simple  example  to  demonstrate  the  distributed  decision  scenario  is 
illustrated  in  Fig.  1  and  explained  below. 
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Figure  1  -  Distributed  Decision  Scenario 

Two  sensors,  labeled  A  and  B,  observe  the  same  area  in  space  to  jointly  make  a 
binary  decision  based  on  the  statistical  properties  of  the  observations:  either  a 
target  is  detected  or  there  is  no  target  detected.  In  certain  situations  the  optimal 
decision  made  by  each  sensor  acting  individually  would  result  in  each  deciding 
that  a  target  exists  when  an  optimal  joint  decision  would  decide  that  a  target 
does  not  exist.  This  dichotomy  points  out  that  in  order  for  a  higher  level  process 
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to  make  a  correct  decision  about  the  object,  the  distributive  nature  of  the 
problem  must  be  built  into  the  front  end  statistical  decision  procedure. 

The  problem  of  distributed  processing  of  the  observation  data  to  achieve 
optimal  or  near  optimal  decisions  is  discussed  herein.  The  sensors  are  configured 
to  perform  computations  to  reduce  the  observation  data  and  to  communicate 
among  themselves  over  a  limited  bandwidth  channel.  Algorithms  which  operate 
in  this  environment  are  called  distributed  decision  algorithms.  Algorithms  which 
perform  computations  on  all  the  observation  data  collected  and  gathered  at  one 
central  location  are  called  centralized  algorithms. 

This  thesis  deals  specifically  with  modeling  a  particular  class  of  distributed 
decision  algorithms  in  a  multiprocessor  environment,  and  with  related  issues  of 
process  synchronization.  Although  centralized  algorithms  are  not  of  concern 
here,  a  companion  thesis  [l]  deals  with  non  real-time  simulation  and  evaluation  of 
distributed  decision  algorithms  and  comparison  with  centralized  algorithms. 

Although  the  thesis  deals  with  a  particular  class  of  distributed  decision 
algorithms,  the  implementation  problems  presented  by  the  algorithm  would  be 
typical  of  most  distributed  algorithms.  Thus  the  work  can  be  regarded  as 
developing  a  test  facility  in  which  distributed  decision  algorithms  can  be  tested  in 
a  realistic  computational  environment. 

The  problem  is  to  model  the  processing  environment  of  two  sensors  which 
collect  data  on  a  common  object.  The  sensors  and  their  associated  processors 
then  perform  parallel  processing  to  partially  reduce  the  data  and  the  partial 
results  are  exchanged  via  a  local  area  network.  A  final  decision  about  the 
observed  object  is  then  made  at  each  sensor,  based  on  the  locally  processed  data 
and  the  exchanged  information. 

B.  HARDWARE/SOFTWARE  CONFIGURATION 

The  hardware/software  configuration  used  for  the  modeling  of  the  distributed 
decision  network  was  the  REAL-TIME  CLUSTER  STAR  (RTC  *)  system.  This 
system  was  developed  by  thesis  students  under  the  AEGIS  Project  Group  at  the 
Naval  Postgraduate  School.  RTC  *  was  designed  to  handle  algorithms  of  the  type 
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incorporated  here  with  the  appropriate  synchronization  and  control  primitives. 
The  hardware  consists  of  two  clusters  of  single  board  computers  (SBC's)  sharing 
a  common  backplane  with  an  Ethernet  local  area  network(LAN)  serving  as  the 
communications  link.  The  operating  system  is  a  distributed  multicomputer  real- 
time executive  that  permits  asynchronous  parallel  operation  of  processes  resident 
on  SBC's  of  the  same  cluster  and  in  separate  clusters  linked  by  the  LAN.  User 
processes,  such  as  the  distributed  decision  algorithms,  are  resident  in  the  local 
memory  of  each  SBC.  They  can  share  data  and  control  variables  using  the 
common  memory  in  each  cluster,  as  well  as  the  backplane  and  the  LAN  data 
paths. 

A  detailed  description  of  the  hardware  system  and  the  software  operating 
system  is  provided  in  [2].  The  distributed  decision  algorithms  are  organized  as  a 
number  of  separate  processes  on  various  single  board  microcomputers  in  the  two 
cluster  arrangement.  Process  synchronization  is  achieved  through  certain  await, 
advance,  and  read  primitives  to  control  the  orderly  multiple/parallel  process 
execution  as  well  as  a  sequencer  to  control  the  allocation  of  the  LAN  shared 
resource.  Each  cluster  simulates  the  operations  that  would  be  performed  by  the 
sensor  processors.  Data  read  from  disk  storage  simulates  the  input  sensor 
observations.  Each  processor  then  performs  the  necessary  computations  to  reduce 
the  data  to  the  statistics  required  for  the  joint  decision.  One  set  of  statistics  are 
then  exchanged  between  clusters  while  another  set  is  retained  locally  and 
computation  is  continued  to  produce  a  combined  statistic  based  on  the  joint 
data.  This  combined  statistic  is  then  compared  with  a  predetermined  threshold  to 
make  the  detection  decision.  Computations  continue  while  data  is  available  for 
input  and  the  decision  results  are  displayed  on  a  local  console  of  each  cluster. 

C.    STRUCTURE  OF  THE  THESIS 

In  the  remainder  of  this  thesis  the  distributed  decision  problem  is  defined  and 
various  distributed  decision  algorithms  and  their  characteristics  are  discussed. 
The  implementation  of  one  algorithm  in  a  distributed  multiprocessor  test 
environment    is    introduced    and    discussed    in    detail.      Emphasis    is    placed    on 
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obtaining  solutions  to  the  problems  of  communication  and  synchronization  for 
processes  operating  in  two  remote  computer  systems.  The  specific  contents  of 
each  chapter  is  as  follows. 

Chapter  II  presents  the  distributed  decision  problem  with  a  discussion  of  a 
specific  distributed  decision  algorithm.  Simple  examples  illustrate  the  detection 
problem  with  a  binary  decision  rule. 

Chapter  III  presents  the  implementation  of  a  specific  detection  distributed 
decision  algorithm  in  the  RTC*  multicomputer  system  and  discusses  important 
issues  relevant  to  the  implementation  of  this  type  of  algorithm. 

Chapter  IV  is  a  summary  of  the  findings  and  summarizes  the  results  of  the 
implementation  in  the  RTC*  multicomputer  system. 
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II.    DISTRIBUTED  DECISION  ALGORITHMS 

A.    SUMMARY  OF  ALGORITHMS 

Alternative  approaches  to  a  simple  binary  (two  hypothesis)  decision  problem 
are  presented  in  this  chapter.  The  various  algorithms  have  overall  similar 
characteristics  in  that  local  computations  are  performed  by  each  sensor,  reduced 
data  is  exchanged  over  a  limited  capacity  communications  channel,  and  final 
decisions  are  made  based  on  the  joint  observations  of  the  sensors. 

The  discussion  here  assumes  that  there  are  only  two  sensors  involved  (A  and 
B)  and  that  the  task  is  to  make  a  binary  decision  (if,:  target  is  present,  or  H2:  no 
target  is  present).  Generalization  of  most  of  these  methods  to  multiple  sensors 
and/or  multiple  hypotheses  is  possible. 

1.  Tenney  -  Sandell  Algorithm 

Tenney  and  Sandell  [3]  seem  to  have  been  the  first  to  look  at  distributed 
decision  algorithms  of  the  type  described  here.  In  their  work,  the  observations  of 
the  two  sensors  are  assumed  to  be  independent  when  conditioned  on  the  decision 
hypotheses.  Such  independence  of  observations  could  arise  if  the  sensors 
measured  different  physical  properties  of  the  target  (e.g.  radar  cross  section  and 
infrared  radiation).  The  sensors  each  make  a  binary  decision  based  on  their  own 
observations  and  send  the  result  (a  single  bit)  to  a  fusion  center  for  arbitration. 
A  cost  criterion  was  devised  that  depends  on  the  decisions  made  by  each  sensor 
and  on  the  two  hypotheses.  Tenney  and  Sandell  showed  that  the  procedure  that 
minimized  the  expected  value  of  the  cost  is  a  likelihood  ratio  test  at  each  sensor. 
However  the  thresholds  used  by  the  two  sensors  are  coupled  through  some 
integral  equations. 

2.  Relaxation  Algorithms 

Relaxation  algorithms  [4,5]  are  another  way  to  execute  distributed 
decisions.  These  algorithms  are  less  well-founded  in  a  theoretical  sense,  but  seem 
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to  work  well  in  practice.  In  the  relaxation  algorithm  each  sensor  makes  an  initial 
decision  based  on  its  own  observations.  The  decisions  are  exchanged  and  each 
sensor  may  then  revise  its  decision  based  on  the  new  information.  The  procedure 
works  best  when  there  are  multiple  decision  makers  involved  and  may  require 
more  than  a  single  iteration  to  converge. 

3.     The  Generalized  Likelihood  Ratio  Test 

If  the  information  exchanged  between  sensors  is  more  than  a  single  bit, 
but  limited  to,  say,  a  single  floating  point  number,  then  a  whole  new  class  of 
procedures  can  be  suggested.  In  particular,  if  the  observations  are  independent 
as  in  the  Tenney-Sandell  analysis,  then  the  likelihood  ratio  for  the  joint 
observations  factors  into  two  parts,  each  depending  only  on  the  observations  of  a 
single  sensor.  Thus  each  sensor  can  compute  the  likelihood  ratio  (or  log 
likelihood  ratio)  statistic  for  its  own  observations  and  send  it  to  the  other  sensor. 
Each  sensor  then  has  the  complete  information  required  for  making  a  decision  to 
minimize  probability  of  error  based  on  the  joint  observations. 

A  more  interesting  problem  occurs  if  the  observations  are  correlated.  In 
this  case  the  joint  likelihood  ratio  does  not  factor  in  such  a  convenient  way. 
However,  a  procedure  can  be  suggested  that  leads  to  a  relatively  simple  decision 
algorithm.  Let  the  observations  acquired  by  sensors  A  and  B  be  represented  by 
x0  and  y0  respectively.  The  optimal  centralized  test  to  minimize  the  probability  of 
error  has  the  form 


h  , 

,    Pi(xo,y0)       .    Pita)       ,    Pi(yo'xo)    >.   _  ,.v 

In - =  In ■ — -  +  In - : In  T  (lj 

P2(x0,yo)  P2(Xo)  p2(yoi  x0)    < 


where  the  subscript  i  on  each  probability  density  function  p  indicates  that  the 
density  function  is  for  hypothesis  H{ .  A  distributed  form  of  this  test  can  be 
developed  by  allowing  sensor  A  to  compute  the  first  term  in  (l)  and  allowing 
sensor  B  to  compute  an  approximation  to  the  second  term  (the  conditional  log 
likelihood  ratio)  by  using  some  estimate  for  the  observations  xq.  This  procedure  is 
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known  as  a  generalized  likelihood  ratio  test  [6].  In  essence,  when  the  density 
function  involves  an  unknown  parameter  (in  our  case  x0  in  the  second  term  in 
(1))  estimates  are  made  based  on  each  hypothesis  (xj  for  Hx  and  x2  for  H2)  and 
used  in  the  corresponding  density  function.  The  form  of  the  second  term  then 
becomes 

l„-tii^^ii  (2) 

P2(yoi  x2) 

If  sensor  B  sends  the  result  of  this  computation  to  sensor  A,  then  the  test  (l), 
can  be  evaluated  to  make  a  decision.  A  symmetric  computation  can  be  made  with 
the  roles  of  A  and  B  reversed,  where  the  the  estimates  for  y0  are  yt  and  y2  at 
sensor  A. 

The  decision  rule  just  described  has  a  number  of  essential  differences 
from  the  corresponding  centralized  algorithm.  First,  since  the  likelihood  ratio 
evaluated  by  one  sensor  uses  an  estimate  for  the  other  sensor's  observations,  the 
performance  of  the  algorithm  will  in  general  be  different  and  suboptimal  when 
compared  to  the  centralized  test.  Second,  since  the  two  sensors  perform 
symmetric  computations  with  the  roles  of  x0  and  y0  reversed,  there  will,  in  general 
be  a  region  of  the  combined  observation  space  where  the  decisions  of  the  two 
sensors  do  not  agree.  The  properties  of  this  class  of  distributed  decision 
algorithms  is  dependent  on  the  various  methods  of  estimating  the  unknown 
observations  xq.  If  the  sensors  are  allowed  to  exchange  only  a  single  statistic  then 
the  estimate  for  x0  must  be  derived  entirely  from  y0  (e.g.  using  MAP  estimation) 
and  the  resulting  decision  rule  is  of  the  form 

^(x0)  -  AB(y0)   J   InT  (3) 

This  limits  the  degree  to  which  the  distributed  test  can  approximate  the 
centralized  test  since  in  many  cases  the  centralized  test  will  not  be  separable. 

The  log  likelihood  ratios  in  (3)  are  computed  at  their  respective  sensors 
and   once   the   primed  statistic   is  received,   it   is  added  to   the   unprimed   locally 
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computed  statistic  and  the  result  is  compared  to  the  known  threshold,  In  T.    For 
the  case  of  Gaussian  observations,  the  densities,  px  and  p2  of  (l)>  are  of  tne  form 


Pi  =  j r  exP 

(2;r)2  I  K<'>     2 


-  -  [x-  mf'Y   [K(')]-1  [x-  mO] 

It 


i  =  l,2 


(4) 


and  the  points  where  the  sum  of  the  statistics  in  (3)  is  equal  to  In  T  establish  a 
decision  boundary  for  this  particular  decision  rule.  If  observations  x0  and  y0 
result  in  a  point  with  value  greater  than  the  boundary  value,  the  decision  is  HY 
and  if  the  value  is  less  than  the  boundary  value  the  decision  is  H2-  Decision 
boundaries  for  Gaussian  density  functions  are  generally  elliptical,  parabolic,  or 
hyperbolic  and  define  two  (not  necessarily  connected)  regions,  one  for  each 
hypothesis. 

4.     Decision  Based  on  the  Nearest  Neighbor  Rule 

A  final  form  of  distributed  decision  algorithm  is  based  on  the  k-nearest 
neighbor  rule  of  pattern  recognition  [7].  In  this  nonparametric  decision  rule,  a  set 
of  observations  to  be  tested  is  represented  as  a  point  in  a  multidimensional 
observation  space.  Also  existing  in  this  space  are  previously  given  sets  of  points 
(training  data)  corresponding  to  each  of  the  two  hypotheses.  The  distance  of  the 
measured  observations  to  each  of  the  other  points  is  computed  to  determine  its  k 
nearest  neighbors.  If  most  of  the  neighbors  correspond  to  Hx  then  the  given 
observations  are  also  associated  with  Hu  otherwise  the  given  observations  are 
classified  according  to  H2. 

A  distributed  form  of  this  decision  rule  can  be  developed  by  letting  each 
sensor  determine  a  small  number  of  nearest  neighbors  in  the  x  or  y  subspace.  If 
the  labels  of  these  points  and  their  distances  from  the  observation  data  are 
interchanged,  one  can  compute  the  distances  in  the  xy  observation  space  and 
classify  the  observation  data.  This  policy  does  not  guarantee  that  the  true 
nearest  neighbors  will  always  be  found  but  allows  a  decision  to  be  made  without 
further  iterations  and  exchange  of  information. 
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B.    GENERALIZED  LIKELIHOOD  RATIO  TEST 

The  algorithm  based  on  the  generalized  likelihood  ratio  test  was  chosen  for 
implementation  on  the  distributed  system.  It  has  requirements  for 
communication  and  process  synchronization  that  are  representative  of  distributed 
decision  algorithms  in  general.  The  performance  characteristics  of  the  generalized 
likelihood  ratio  test  are  investigated  in  [l].  If  the  joint  density  function  for  vector 
observations  x  and  y  is  Gaussian,  then  a  quadratic  decision  boundary  results. 
This  is  known  as  a  quadratic  classifier  [8].  The  joint  density  function  for 
observations  x  and  y  has  the  form 
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where  z  is  the  observation  vector  with  elements  x  and  y  and  m'1'  is  the  mean 
vector 
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and  K  is  the  covariance  matrix  partitioned  as  follows 
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Note  that  Kx(l)  is  the  covariance  matrix  for  x,  Kv(,>  is  the  covariance  matrix  for  y, 
and  Bjj'  is  the  cross  covariance  matrix  between  x  and  y.  The  marginal  and 
conditional  densities  are  Gaussian  [9]  and  are  given  by 
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where  the  conditional  covariances  and  means  have  the  form 


Kj'»    =  K(')-Bi,;)r[Ki')]->Bi),    «=1,2 


(12) 


mi\\  =  m(')  +  B^T[Ki'Yl  I*  ~  mi0]  -    »  =  1.2 


(13) 


Since  the  x  term  of  (13)  is  not  available  at  the  given  sensor,  an  estimate  of  the 
form 


x,   =  mj'»  +  Bj;)  [X^]-1  [y  -  mj')]  ,    t  =  l,2 


(14) 


is  used.  The  estimate  is  the  value  of  x  that  maximizes  the  density  p, •  (x  J  y). 
Symmetric  forms  of  (12),  (13),  and  (14)  are  used  for  Kz ,  „ ,  mz  „ ,  and  y,  at  the 
other  sensor. 

The  natural  logarithm  of  (8)  is  given  by 
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lnpI(x)=-![ln(27r)"+  In   jKJ')|    +  [x  -  mj'Y   [K^]"1  [x  -  mj'>]  ]  »  =  1,2       (15) 

and  the  natural  logarithms  of  (9),  (10),  and  (11)  are  similarly  obtained.  The 
logarithms  of  the  conditional  likelihood  ratios  are  then  used  to  obtain  the  terms 
on  the  right  side  of  (1).    The  term  given  by 


XA  (x0)  =  In— - — -  =  In  Pj(xo)-ln  p2(xo) 
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then  becomes 
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Expanding  (17)  and  collecting  terms  leads  to  the  form 
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is  an  NxN  matrix. 
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is  a  scaler. 

The  coefficients  of  the  conditional  log  likelihood  ratio.  A4(x0)  are  called  A  ,  b  , 
and  c'  and  are  derived  in  the  same  way  with  (12),  (13),  and  (14)  substituted  for 
the    corresponding   variables.    Similar   coefficients    are   calculated   for    As(y0)    and 
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^b(Yo)  and  are  listed  in  Appendix  A  along  with  the  coefficients  for  XA  (x0)  and 
Av4(x0).  The  computations  of  A,  b,  c,  A  ,  b  ,  and  c  are  performed  prior  to  their 
use  in  a  real-time  application  and  are  input  at  the  start  of  each  process  as  the 
parameters  for  each  of  the  quadratic  classifiers. 
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III.    THE     TEST     ENVIRONMENT 

A.    HARDWARE     DESCRIPTION 

The  test  environment  for  the  distributed  decision  algorithms,  designated 
Real-Time  Cluster  Star  (RTC  *),  consists  of  a  highly  modular  hardware  base  and 
a  highly  flexible  operating  system.  The  hardware  consists  of  two  clusters  of 
single  board  computers  (SBC's),  each  sharing  a  common  backplane  and  an 
Ethernet  local  area  network  (LAN)  serving  as  the  communication  link.  Thus 
each  cluster  can  be  thought  of  as  a  node  of  a  network  and  each  node  has  multiple 
processors  on  a  common  bus. 

1.     The  Cluster 

The  cluster  configuration  is  diagramed  in  Figure  2.  Each  cluster  consists 
of  three  SBC's  physically  connected  by  the  MULTIBUS.  Each  SBC  has  64K 
RAM  of  local  memory  and  can  access  an  additional  64K  RAM  board  of  shared 
memory  and  a  32K  RAM  board  of  common  memory  on  the  ML'LTIBUS.  Also 
connected  to  the  MULTIBUS  are  hard  and  floppy  disk  drives  used  for  bootup 
and  input/output  operations. 
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SBC  2 


SBC  3 


Figure    2  -  Cluster  Architecture 

2.     Real-Time  Cluster  Star  (RTC  *) 

Figure  3   illustrates   the   RTC*   architecture.   It   consists  of  two  clusters 
connected  by  the  Ethernet   LAN.     The  Ethernet  LAN/MULTIBUS  interface  is 
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r^eJnterLAN  NJ3.030  RtV;f^1Pt  Communication*  Coj. Poller  Board  (ECCB).  This 
provides  each  cluster  with  its  connection  to  the  network.  Further  information  on 
operating  characteristics  of  the  Ethernet  LAN  and  RTC  *  use  of  the  Ethernet 
LAN  is  available  in  [2,10]. 
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Figure    3  -  Real-Time  Cluster  Star  (RTC*)  Architecture 

B.    THE  OPERATING  SYSTEM  ENVIRONMENT 

MCORTEX.  the  operating  system,  is  a  distributed  multicomputer  real-time 
executive.  It  allows  for  asynchronous  operation  of  processes  resident  on  SBC's  in 
the  same  cluster  and  in  separate  clusters  which  are  linked  via  the  Ethernet  LAN. 
System  synchronization  of  computations  in  various  distributed  processes  is 
accomplished  using  the  synchronization  model  of  Reed  and  Kanodia  [ll].  This 
section  describes  the  MCORTEX  system  distribution  of  control  variables,  known 
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as  eventcounts  and  sequencers.  The  modifications  to  the  operating  system, 
necessary  to  distribute  user  data  throughout  the  system,  are  also  discussed  in  this 
section. 

1.     The  Synchronization  Model 

The  MCORTEX  operating  system  is  based  upon  a  synchronization  model 
which  is  event  oriented.  Processes  coordinate  various  activities  by  signaling  and 
observing  events  using  synchronization  variables  known  as  eventcounts  and 
sequencers.  An  eventcount  is  a  variable  created  by  the  user  to  signal  the 
occurrence  of  an  associated  event.  Eventcounts  are  initialized  with  the  value 
zero  and  incremented  by  one  each  time  the  associated  event  occurs.  The 
mechanism  used  to  signal  this  occurrence  is  a  call  to  a  system  primitive,  the 
advance,  which  causes  the  eventcount  to  be  incremented  by  one.  A  call  to 
another  system  primitive,  the  await,  causes  a  process  to  wait  until  the 
designated  eventcount  has  reached  a  designated  threshold.  Once  the 
eventcount  value  is  equal  to  or  greater  than  the  threshold  value  the  process 
may  continue  its  execution.  Therefore,  processing  at  distributed  locations  may  be 
controlled  using  eventcounts  which  are  signaled  and  observed  with  the 
advance  and  the  await  primitives. 

A  sequencer  is  a  variable  provided  by  the  system  to  control  the 
allocation  of  a  system  shared  resource.  The  sequencer  is  a  positive  integer 
number  generator  which  starts  with  zero.  It  increments  by  one  after  providing 
its  current  value  to  any  process  which  requests  its  associated  shared  resource. 
The  ticket  operation  is  the  mechanism  used  to  obtain  a  number  from  the 
sequencer.  The  number  obtained  is  used  as  a  threshold  value  in  the  await  call 
to  a  system  eventcount  which  is  also  associated  with  the  shared  resource.  As 
users  of  the  shared  resource  relinquish  it,  they  increment  the  associated 
eventcount  with  the  advance.  This  allows  the  user  with  the  ticket  value 
which  matches  the  eventcount  to  gain  access.  An  example  of  a  shared  resource 
controlled  by  a  sequencer  is  the  Ethernet  LAN. 
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2.  Eventcount  Distribution 

The  kernel  of  MCORTEX  is  resident  on  each  SBC  and  schedules 
processes  for  execution.  A  process  runs  until  it  invokes  one  of  the  system 
primitives,  the  advance  or  the  await,  which  results  in  the  actions  described  in 
Section  B.l.  The  advance  of  an  eventcount,  which  is  used  only  within  one 
cluster,  causes  an  update  of  that  clusters  eventcount  value.  Processes  in  the 
same  cluster,  which  are  awaiting  the  eventcount,  may  then  continue  to  execute. 
Update  of  eventcounts  required  for  intercluster  synchronization  are  packetized 
for  transfer,  via  the  Ethernet  LAN,  to  the  other  cluster.  The  operating  system 
procedure  which  accomplishes  the  transfer  is  located  on  SBC  1  of  each  cluster 
and  is  referred  to  in  this  thesis  as  the  driver.  The  driver  is  the  system  software 
modified  to  allow  for  user  data  transfer  between  clusters. 

3.  Data  Distribution 

Data  which  must  be  shared  between  processes  of  the  same  cluster  is 
made  accessible  through  the  use  of  pointers  to  access  the  local  cluster  shared 
memory  locations.  In  the  RTC*  system,  buffering  of  data  must  be  done  explicitly 
by  user  processes  since  no  means  of  dynamic  allocation  presently  exists.  In  this 
thesis,  the  real-time  application  requires  the  immediate  use  of  the  data  generated, 
which  precludes  the  need  for  buffering.  Static  storage  locations,  which  are 
overwritten,  are  used  for  transfer  of  data  throughout  the  system. 

Data  transfer  from  one  cluster  to  another  is  accomplished  by  first 
establishing  an  absolute  address  in  the  local  cluster  shared  memory  to  receive 
the  data  to  be  transferred.  A  pointer  is  used  to  access  the  absolute  address  in 
shared  memory  and  the  data  value  based  at  the  pointer  is  updated.  The  system 
driver  is  then  notified  that  a  data  value  is  ready  for  transfer.  The  Ethernet 
LAN  sequencer  provides  the  ticket  to  the  user  process  for  this  data  transfer. 
Once  the  ticket  for  this  data  value  matches  the  eventcount  associated  with  the 
Ethernet  LAN,  the  data  value  is  transferred  to  the  driver's  transmit  data  block  in 
the  appropriate  data  field  in  local  cluster  shared  memory.  The  driver  then  causes 
the  necessary  calls  to  system  subroutines  to  allow  packetization  and  transfer  over 
the  Ethernet. 
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At  the  receiving  end  the  message  is  processed  by  the  local  ECCB  and  the 
data  is  placed  in  the  receive  data  block.  The  driver  then  stores  the  data  value  at 
the  absolute  address  designated  in  the  receiving  clusters  shared  memory. 
Another  pointer  is  then  used  in  the  receiving  process  to  access  the  absolute 
address  in  shared  memory.  The  data  value  based  at  the  pointer  is  then  available 
for  further  computations  in  this  cluster.  When  the  eventcount  associated  with 
this  data  transfer  is  updated  via  a  similar  procedure,  the  remaining  computations 
are  performed.  User  process  eventcounts  prevent  the  generation  of  additional 
data  until  the  remaining  computations  in  the  present  iteration  are  complete. 

Appendix  B  provides  an  explanation  of  the  steps  necessary  to  create  the 
system  driver  and  user  command  files.  The  driver  modifications  required  to 
transmit  and  receive  data  values  for  the  distributed  decision  algorithms  are 
shown  in  upper  case  lettering  in  the  system  procedure  SYSDEV.PLI  in  Appendix 
C.  User  defined  pointers  and  variable  basing  are  shown  and  described  further  in 
the  user  procedures  PA2,  PA3,  PB2,  and  PB3  in  Appendix  D. 

C.    ALGORITHM  IMPLEMENTATION 

Each  cluster  can  be  viewed  as  representing  the  set  of  local  processors  of  a 
particular  sensor  which  obtains  large  volumes  of  raw  observation  data  from  a 
target  for  initial  processing.  Decision  rule  parameters  and  raw  observation  data 
are  read  from  local  disk  storage  to  the  processes  of  two  SBC's  in  a  cluster.  Two 
identical  data  sets  are  processed  in  parallel  to  generate  a  different  reduced 
statistic  in  each  processor.  One  statistic  is  to  be  used  locally  (at  the  same  sensor) 
in  further  computation  while  the  other  is  to  be  sent  to  the  remote  sensor  for  use 
in  further  computations.  The  local  sensor  then  receives  a  reduced  statistic  from 
the  remote  sensor  to  combine  with  its  locally  retained  statistic.  The  final  result 
of  the  combined  statistics  is  then  compared  to  a  decision  threshold  and  the 
decision  is  displayed  at  a  local  sensor  terminal. 

1.      Process  Distributivity/Parallel  Processing 

The  implementation  of  the  decision  rule  described  by  (l)  is  accomplished 
with   the   following   organization.     The   sensors   associated   with   the   two   system 
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clusters,  as  well  as  the  clusters  themselves,  are  referred  to  as  SENSOR  A  and 
SENSOR  B.  As  illustrated  in  Figure  4,  each  sensor  uses  two  processes  labeled 
PA2(PB2)  and  PA3(PB3).  Process  computations  take  place  in  time  order  from 
left  to  right  and  computations  shown  above/below  one  another  are  performed  in 
parallel. 

SENSOR     A 

PA2:    Compute  A^  (X0)  Compute     A4  (X0)    +    ^b(Y0) 

PA3:    Compute  A^  (X0) 

SENSOR     B 

PB3:    Compute  A5(Y0) 

PB2:    Compute  \B  (Y0)  Compute     XB  (Y0)    +    A^'  (X0) 

Figure    4  -  Computations  of  Reduced  Statistics 

Processes  PA2(PB2)  and  PA3(PB3)  are  resident  on  SBC  2  and  SBC  3. 
respectively,  at  each  sensor.  Computations  are  performed  as  shown,  with  the 
primed  statistics  exchanged  between  sensors  to  allow  further  computations  in 
processes  PA2  and  PB2.  The  detailed  computations  discussed  in  Chapter  II  are 
shown  in  user  processes  PA2,  PA3,  PB2,  and  PB3  of  Appendix  D. 
2.     Process  Synchronization 

Synchronization  of  events  during  the  decision  rule  computations  is  crucial 
for  accurate  and  meaningful  results.  As  illustrated  in  Figure  5,  the  careful 
synchronization  of  time  critical  events  is  coordinated  with  the  use  of  two 
distributed  eventcounts  at  each  sensor.  The  AlEVC  eventcount  of  Sensor  A  is 
advanced  to  signal  the  availability  of  the  statistic  XA  (x0)  for  use  in  PB2  of 
Sensor  B  and  the  BlEVC  eventcount  of  Sensor  B  signals  PA2  of  Sensor  A  that 
As(y0)  is  available.  The  A2EVC  and  B2EVC  eventcounts  control  the  timing  of 
the  next  input  operation  at  both  sensors  to  ensure  correct  correspondence  of  the 
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observation  data.  In  distributed  processing  multicomputer  systems,  it  is  essential 
that  all  threshold  values  used  in  the  calls  to  the  await  primitives  for  comparison 
to  the  eventcounts,  be  initialized  properly  to  ensure  continued  operation  of  the 
real-time  system. 
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Figure  5  -  Synchronization  Diagram 

As  one  might  expect,  there  is  a  need  to  ensure  that  the  required  statistic, 
^a  (xo)  or  ^fl(yo)'  ^s  available  for  use  prior  to  advancing  the  AlE.VC  or  BlEVC 
eventcounts.  This  is  insured  by  the  forced  synchronization  of  events  inherent  in 
the  sensor  to  sensor  transfer  of  user  data  and  eventcount  updates.  The  statistic 
to  be  transferred  is  stored  in  shared  memory  and  transferred  as  described  earlier. 
Once  the  Ethernet  LAN  sequencer  ticket  value  is  obtained  for  the  data  transfer 
and  the  request  is  placed  in  the  ERB  queue,  the  appropriate  AlEVC  or  BlEVC 
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eventcount  is  advanced  causing  a  system  request  for  a  ticket  value  from  the  same 
sequencer.  This  places  the  eventcount  transfer  request,  which  will  signal  the 
availability  of  data,  behind  the  data  transfer  request  in  the  same  ERB  queue. 
Therefore,  when  the  eventcount  is  finally  updated  at  the  remote  sensor  the 
statistic  required  will  be  in  place  and  available. 

In  the  final  stage  of  computation  the  reduced  statistic  retained  locally 
and  the  statistic  received  from  the  remote  sensor  are  added  in  processes  PA2  and 
PB2  of  each  sensor  and  compared  to  a  threshold  (see  Figure  2).  The  reduced 
statistics  A4  (x0)  and  \s  (y0)  are  added  and  compared  to  the  threshold  at  sensor 
A.  Similarly,  XB  (y0)  and  A A  (x0)  are  added  and  compared  to  the  threshold  at 
Sensor  B.  Results  of  the  threshold  decision  are  tabulated  on  the  local  consoles  of 
each  sensor  and  the  loop  begins  again  with  the  next  observation  vector  read  from 
disk.  The  processing  of  input  observation  vectors  continues,  simulating  real-time 
operation  until  the  vector  files  are  depleted. 

D.    RESULTS  OF  THE  SIMULATION 

In  the  development  and  use  of  the  test  environment  it  was  verified  that  it  is 
important  to  distribute  computation  among  processors  to  better  utilize  the 
available  computational  ability  and  minimize  interprocess  communication. 
Processes  at  each  sensor  were  broken  up  and  distributed  among  the  available 
processors  to  gain  increased  computational  advantages.  Since  processes  at  remote 
sensors  had  to  be  carefully  synchronized,  specific  semaphore-like  mechanisms 
were  made  available  to  provide  this  synchronization  over  the  network.  The 
specific  mechanisms  used  in  this  implementation  are  the  await  and  the 
advance.  Correct  operation  of  these  synchronization  mechanisms  over  the 
network  depends  on  the  prompt  and  orderly  communication  of  protected 
variables  used  by  the  synchronization  mechanisms.  This  orderly  communication 
is  achieved  by  the  ticket  operation.  Successful  implementation  of  a  distributed 
decision  algorithm  requires  the  availability  of  all  of  these  control  mechanisms. 
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IV.    CONCLUSIONS 

The  process  of  distributed  decision  making  by  two  cooperating  sensors 
observing  a  common  phenomenon  was  introduced  in  this  thesis.  Decisions  reached 
in  this  cooperative  way  produce  more  reliable  results  than  those  of  sensors  acting 
alone.  Such  decision  procedures  are  characterized  by  the  need  to  perform  local 
computations  at  each  sensor  and  to  communicate  partial  results  to  the  other 
sensor.  Although  several  types  of  algorithms  were  cited  to  accomplish  the  desired 
distributed  decision  procedures,  all  have  similar  computation,  communication, 
and  process  synchronization  requirements. 

A  particular  distributed  decision  algorithm  based  on  the  generalized  likelihood 
ratio  test  was  implemented  to  explore  the  computation,  communication,  and 
synchronization  problems.  The  implementation  was  accomplished  on  a  two  node 
network  connected  via  an  Ethernet  local  area  network.  Each  node  of  the  network 
contained  the  required  number  of  identical  microprocessors  sharing  a  common 
bus.  shared  memory,  and  network  interfacing. 

Problems  of  intercluster  as  well  as  intracluster  synchronization  of  events 
between  processes  to  ensure  the  timely  input  of  observation  data  and  the 
coordinated  computation  using  the  shared  data  from  the  opposite  cluster  were 
tested  and  resolved.  Initial  results  using  the  generalized  likelihood  ratio  test 
algorithm  demonstrated  the  feasibility  of  performing  the  computations  involved 
in  the  distributed  decision  algorithms  in  a  realistic  environment.  The 
requirement  for  carefully  designed,  network-wide  process  control  mechanisms  was 
also  found  to  be  essential.  The  specific  procedures  used  were  discussed  in  the 
body  of  the  thesis. 
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APPENDIX  A 

Quadratic  Classifiers 

Specific  formulas  for  the  quadratic  classifiers,  A^  (x0),  A^  (x0),  \B  (yo)i  and 
A5(y0)  described  in  Chapter  II  are  provided  in  this  appendix.  Each  quadratic 
classifier  was  derived  similar  to  XA  (x0),  in  Chapter  II,  Section  B.  The 
coefficients,  A,  b  ,  c,  A  ,  b  ,  and  c  ,  the  necessary  expanding  equations  for 
variables  KJ'i)  ,  mjy  ,  Kjy2,  and  m,jyz,  and  the  estimates,  yt  and  xt  ,  are 
given  as  functions  of  the  known  terms,  KJ'^,  m^',  Kj*',  m £*>,  and  Bjj). 

The  coefficients  computed  for 

A  ^  (x0)  =  x    A    x  +  bx  +  c 
are 

A  =  |  [  [KW]-1  -  [K  (»]-' 

b7-  =   [[mW]T  [K  (')]->-  [mP)]T  [Klf] 


2 


Kj2> 


[mj2>]r  (Kj2)]-'  mfl  -  [mi')]7  [K  <'>)-'  m<»  +  In  -L« 

ft;  - 


The  coefficients  computed  for 

A  4  (x0)  =  x    A    x  +  b     'x  +  c 


are 


A'  =  - 
2 


[Kj^-I-IKJV,]-1] 
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c       = 


-     K il>,  =  K  W  -  B  W  [K  W]-1  B 4')* 

Kfl),  =  Kj2>  -  BW  [Kit1  B,f 
miyy  =  mi»  +  B  W  [K  W]-1  [y  -  m  W] 
mfl),  =  m<2>  +  Bl'l  [KM]"1  [y  -  mf )] 

yI  =  m!,(')  +  Bi!,')7'[KI<"]-1[x-mi')| 

y^mfl  +  Efpi'll-Mx-","1] 


K<2> 
~~a     y 

z  I  y 


The  coefficients  computed  for 

As(y0)  =  yrA  y  +  b7y  +  c 


are 


A  =  — 
2 


[K't1  "  [Kj'T1 


bT  =   [[mj'l]7-  [K<»]->  -  [mf f  [Kf)] 


[ml2)]3-  [K<2)]->  mi*)  -  [m?Y  [K,<V  m,l»  +  In 


The  coefficients  computed  for 

A5(yo)  =  yTA'  y  +  br  'y  +  c 


are 


A'  =  — 

2 


Fff,]-1  -  [Kjy,]-1 


K/(2) 


k^ 
» 
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■'-   [fmtf.l'IKW.]-» '-[»#,]'  [*#.]-•] 


m 


(2)    ]T 


y  I  * 


i    y  I  ; 


1   ™  (2)      _ 


m 


y  I  * 


[mW,]'  piV,]-'  ml',),  +  In 


axy  |  z         -*-vy  zy        I      z     J  -cy 

K*2,)     =  K<2)  -  B(2^T  [K^l-1  B^ 

"y  |  z  "y  zy         i      x      J  zy 

mO,),  ^W  +  BflKitM";",111! 

mfl>.  =  mj*>  +  B  #>r  ptlf  [x  -  m  «] 
x,  =  mj»  +  B  W  pM|-'  [y  -  m  «] 
x2  =  mj2>  +  B  W  [Kj2)]"1  [y  -  mW] 


y  :  z 

"•y  I  ^ 
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APPENDIX  B 
LINK86  Input  Option  Files 

When  linking  files  to  create  a  command  file  for  use  on  each  SBC,  the 
following  command  is  invoked  with  the  appropriate  user  filename:  LINK86 
filename  [I].  The  "I"  in  square  brackets  invokes  the  input  file  option  which  directs 
LINK86  to  obtain  further  command  line  input  from  the  designated  input  file.  As 
an  example,  the  modules  listed  in  CA.INP  are  linked  with  the  command:  LINK86 
CA[I],  where  the  "I"  indicates  that  CA.INP  contains  the  names  of  the  files  to  be 
linked.  The  name  preceding  the  equal  sign  is  the  filename  assigned  to  the 
command  file.  LINK86  CA[I]  produces  the  command  file  CA.CMD,  which  is  the 
system  driver  for  Sensor  A  (cluster  A).  All  files  listed  in  the  input  file  must  be  on 
the  logon  disk  and  must  be  of  type  object  (.obj).  Object  files  are  generated  by 
compiling  files  of  type  PLI  ( -pli)  or  A86  (.a86).  The  above  steps  also  apply  for 
linking  the  system  driver  files  for  Sensor  B  as  well  as  the  user  files,  processes 
PA2.  PA3,  PB2,  and  PB3,  to  create  the  respective  command  files  CB.CMD, 
NUM12.CMD,  NUM13.CMD,  NUM22.CMD,  and  NUM23.CMD. 
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if  if  >£  if :',:  if  >[s  sj«  5^  s|;  if  >;<  ?Je  jj:  :|;  s£  sjc  sJj  if  £  >^  *  sjt  if  >Je  #  »}s  j{s  if  :;;  #  #  5;:  if  ;J:  }J:  >;;  5;;  if  if  j;«  >}:  sj:  if  s£  5jc  sje  #  $  5J:  #  $  ♦  #  5r  # '!;  sfc  -f  # 

**  CA.INP   input    option   file  ** 

J*  -»-  o-  - •*  y*  «.'»  vb  •.'*■  y*  v-  y  .<  y#  kL  *u  JU  *v  ***  -**  ***  *V  »*«*  «V  -*'  - V  ~x*  ■Jt"  **i*  *-'■*  -V  "••  -'*  -*■*  " V  s**  V'  4  W  •***  **«*  Vr  "-1-  *V  ***•  ***  •J'  *-V  ^V  *V  * V  *V  •**  V-*  *■**  *■'-*  -'*  -1'  ~'  -  »V  **■*  ~k* 
>i^  *i*  Jg^  ^p  #p  *i(*  *pv  *p  ^p  ^*  if*.  Jf»  *^v  *p  *,-•  *jt  -p  -( »  *n  -p.  *f.  -^ .  -j-  ^,  *^  » p.  ,^.  -^  -y»  ^p.  -tp  *p  .-,*.  ^.  >p.  jp  ^  jp,  ns  -p.  st-.  -p.  ^-.  ^Y"  <nr>  3j6  n*  ^»  1*  *i^  *t*  *<■•  *p  ^  1*  ?r*  ***  ***  "r1  ■*/* 

V-V*  -'-V*  *»#»•-  J*  y.  y-  *#*  *•»*•>  »'-  *>•%»*  V-  «**»•- V*  V*5*-  ***  V*  ^*  *'"fe  V*  V*  V*  »'-  *VA  *>**•-  V*Vf  v#  y-  y*  yu  *i.  *»-  *>•  yu  y-  y-  y*  v*  »*>*»-  y»  y.  -a-  y~  y*  o*  »•-  o-  yuy. 

?,•■  ?t»  »,»  ^|»  *,s  *,-•  ^[»  #,»  *y.  »,-*  ^>  j,  .  *( .  »t.  #,*  *|*  r(»  *j"  ^,»  »,*■  *t*  *.■*  *,*  *|»  *(*  >|»  »j»  *i*  *|*  *j»  *j»*p  ^^  #i,»  *i»  ^^  ^*  ^,»  *,-■  *^  *\*  ?i*  ^^  *if«  *p  *»*  *i*  *i**  *v*  *»*•  *r*  *t%  *»*  *r^  *i*  *i*  *r*  *»■■  1*  1* 

CA    = 

SYSINITA    [CODE [AB [439]] , DATA [A3[800]  ,M[0] , AD [82]]  , MAP [ALL]]  , 

STSDEV, 

ASMROUT, 

GATEMOD 

*w  »•#  «J*  *C  ~>*  *'*  *i*  J*  ><*  o^  *v  JU  »**  »*^  »**  y*  *^*  «Jl*  fcO  V*  U*  "»•*  s**  *'■'  ^**  ***  ***  ^*  V^  *'*  »**  J*  ***  OU  s1*  ^V  **#  ***  *"*  **•  ***  ***  *V  •*•  ***  **^  **£  ***  *V  **#  *'*  *■'*  ***  ***  ***  ***  ^**  *'*  ***  *'* 

#■,»    »(*    »|*     «■(■'     *-,^    *,*    *J»    ^-"i    Jj»    *|»    *|*  ^p>     »|»    *^<»     ••[«    *|*    »)»    *,»    *,*    *(»  ^,»     J,»    «-|S     »^1    *■!-     »,-.    »,-.    j-r^    ^f»    >,-.     >><p>  *,-     j-,»    y-|->     ^(»    •^■»    »|%    *p»  ^ft     >)<■    ^j*    *^»     *■,*  *p*     *p*    *■,>•     ••(*    ^j»    *|V     c,S    *)■»    *t-*  >|«    »,-    •»,■»    *,*    rf(*     H«    *-i|-"  *(* 

**  NUM12.INP    input    option    file  ** 

>\c  %  i\i  ;|j  ;'f  ;;c  ;J:  ^  >^  s'f  .-;;  j[c  ;;j  ;^  if.  -if.  i\i  ;|c ;',;  %  %  ~\:  #  ^  if  if  if  if  if  if  3^ :;;  if  if  %  >}t  if  ^:  if  if  %t  if  if  if  :£  if  if  ^;  if  if  if  if  if  if  if  if  if  if  if  if 
if  if  if  ^  if  if  #  if  if  if  if  if  if  %.  if  if  ;>s  if  %  if  if  ;»£:{;  if  if  >f  if  i^  if  if  ififififif^fifififififif^iififif^fififififififififififififif 

NUM12- 

S3C2IMIT    [CODE [A3 [439]]  ,DATA [A3 [3C0]  ,M[0]  ,AD[82]]  , MAP [ALL]]  , 

PA2, 

GAT EMC D 

J€  J,  ,r,  j,  ^1,  ^j,  ,'-  J-  „',  .1,  ^t,  .(,   .),«»«  .!>  «•«  ,1-  j,  «C  «,0  -V   *  -  J,  %L«l,«,L<.l*  •?'-*?  V-   «.'-»•*  Jt*  U*  O'sU  <.<#  OU«Jf«  -t-  „•*„'-  *(«U«  %l>  Mtf  V^  -■,-•,,.»,  ><«  ,1-  ^'-  *JU  «V  -'-  «■«  -'•  *■•*  -'- 

»,-   J(»   *,.   *,»  ^f»  J,»   *,^   »(-  *,»   mfm  *p  /f*    ^|*  *!■*  #,>   *p>  ^|»  ^(*  #|«   *("  »f»    »,»  *^i  ^,»  *p>  #(*  *)»  J|»  *|*   *|*    *,»*i^   *i*  #|»    *|*  ff»    ^,»   *,»  *|*   ^|%  >,»  Jj1*   rp  Jp    *j^   *,«  rf,*  »|-«.  *(^  »,■•  *,«■   *p«  *,*  *,»  »i^   ',■•  ^,»    »,»   *,«   *,t 

**»  *v  *'<  **•  »•*  *  *  ***  *■*  »*^  ***  *'*  »v  *v  *'*  ^**  ^**  ^**  ***  ***  ***  w  v*  *v  *■**  v*  ^**  *v  v*  *'*  Vf  *v  ***  ^^  *'*  ***  v*  *v  ^*-*  ^**  **?  ***  v*  %te  v*  ***  ^v  *'*  ***  *'*  ^**  ***  *■'*  *'*  *'*  *'*  ***  *v  •**  **■•  **p 

»l*  »|*  *^»  ^j»  #j»  *(*  ^j-*  *(H  »,H  rf,    »,  .  ^pt    ^,»  *p  J,»  ^«   *|»  ^|^   *>|*  •[»  /(^    ^,»  *(t   »,-   Jf*  it*   vp   ?p  ^,*  *(t    #1^  *,»   J(%  ,,»   *,*   ?(»   »,fc   *p   *,i.   r,t   ,(~   rf,*   ,,,  i,»   »(»  ^p>   *,■»   »,s   ^f^  Jp   »(*   *,-»  *,i.   *p    -,*  *,■»  ^,~    »,  ,    *,-.  *ti 

**  MUM13.IMP    input    option    file  ** 

»V  *i**  •''  ***  ■»'-  -'*  ^**  •»'*  »'*  »''■  O*  »'»  •  '*  »•#•  n.'*  •■•*  ^*#  *'»  v'*  •.'*  ***  *■'(*  *■'*  »'*  ^'*  *V  >**  ***  »V  *'*   ^V  »'-*  »•*  •.**  •.**  fct*  ***  »•-  »V  »•*  *•#  -.'»  O*  *'*  ».**  *^*  O*  *'*  »'>  »J*  >**  »'*  *•*  «J*  **»•  »'^  »■*  »o  *>*-'* 

*(fc  *|*   ^,-    r^  *{•    ^(»  ^,»   ^p«  »■,»   ^,-   ^j*  ^,.    ^^»  «p  ^t«   ?,»   ^,»  ,(»   *,»  ^(»  *t%    *,4  *p.   *-,»  ^(»  »(>.  >,%   #(%   >pk  «(»    *f*mfk    *(v    -,-    . ,»  Jp    .  _«  »p  *,<•    -i*    'p,  *(»    ^,%  *,-    .■,«.   *^«   »,.   *p   »(i   *,.   ^,«   r|ii   *,»  *f«   ^-   rfi,  *p    *,»   *,■«  rf* 

y*  V*  *'*  y*  *■'»  V*  V*  Vj  s'*  *'*  V*  *"*  *■**  V*  ***  V*  *•**  ***  V-  *•'*  ***  V*  *'*  »V  *V  •**  •'*  V*  ***  V*  ***  *V  »**  ***  V*  ^*  Vf  ***  ^*  ***  •>**  •'*  V*  •'*  ***  %V  ***  ***  **f  V'  »**  V*  ***  ***  *'?  ■"**  •**  ***  *'?  *■'* 
*t*  *p  '1*  '1*  'i*  •'i*  *»*  n*  3i  •  *V"  '(■*  '1*  *i*  ?r*  '1*  *r  •'t*  'r  n*  *r  *fi  *»*  *>"  *»^  *"»^  *>"  *»*  *f*  *»*  '•*  *»"*  **»    '•*  *v*  *•■■  *5*  *f*  *»*  *i*  *r*  *»■*  ***  *«*  *i*  *«*  *»*  i*  *i*  ***  *i*  *i*  1*  ^*  *i*  *i*  *r*  ***  *t*  1*  t* 

NUM13= 

S3C3IMIT    [CODE [A3 [439]]  f TATA  [A3 [820]  ,M[0]  ,AD[82]]  ,  MA?  [ALL]]  , 
PA3, 

GATEMOD 
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**  CB.INP   input    cfption   file  ** 

C  B    = 

SYSINITB    [C0DS[AB[439]]  f  DATA[AB[800]  ,M[e]  ,AD[82]]  .MAP  [ALL]]  , 

SYSDEV, 

ASMROUT, 

GATEMOD 

i*  i**fi  '.-  ***  «^  i*  *r»  -v  *r  i^  v  it  *n  «•>■»  'r  t»  n*  *r  *i*»  *r  n*  *v  n-  'r  *?  ^i*  'fi  *r-  ^~  V  'r  '?■  ■¥■  i-  ^  i*  *r  *v  i*  'r  i*  i**  *r  *i»  '(*  -nr  *&  'fi  *iv  '»-  >V"  *r  'p  *i»  -i*  -p  *p  *r  *v 

**  MUM22.IN?    input    option    file  ** 

*0  X  X  •'-  a-  a*  <jl>  x  X  v  X  X-  X  X  X  -1--  -''  -*'  X  X  -,'  J-  ■»>'  M^  X  ^^  "V  -•*  i(-  V'  *•'  XXX  *'-  -*-  X  *■'•*  »*'  X  X  •**  *■-  X  X  V'  X  *'"  **'  "■''  X  X  X  *J*  *'*  -,-  4"  X  X  X 

*>(-*  *(^   *|N    »j*  ^(*  «-j*   >|*   #|«.  *|*  ^f«    *y   *^%    *|»   >|->   *j^  ^|"k  >j.  >j*  *|*i.   rfjV  ^|»     ^  .  *(«   *f  .   *|  .  ^(x  ^j^   »|*  *tx  ^|X    *|S  >j%   ^|»  ^.    »|»  *t%   >|^  ^j*  *-|*  >|*   ^i»  *|>   *|*  *^*   >|V   »,  .   >|^  ^,.   ^|»  ^-%  >■, .   ^p   *|W  -   .   *(*  ^(%   .,      j.^  >j%  ^f» 

NUM22^ 

SBC2INIT    [CODE  [AB  [4:39]]  ,  DATA  [AB  [803]  ,M[0]  ,  AD[82]]  ,  MAP  [ALL]]  , 

p-pp 

GATEMOD 

.•  x  **•  *■*  *•*  -'*  x  **» ,J*  •*•  **»  x»  «x  x  ***  ***  ***  x  ***  X  •■**  x  v»  *'*  x  *v  x  ^*  »t*  **-  »•*  x  •»*  x  *>y  *•*  *"  ">'*  x  x  v*  ^*  *•-  x  x  x  x  -**  y*  y^  -j*  «*»  *^f  **«  ***  x  *■'*  V?  *•'*  x 
,  .  -  -  „_»  ,,~  ^-  -,,  ^,*  rf.  -,-  ^r  - r  *,-  ',•  t  i*  t  T  ?  t  v  v  •*!* *r*  ***  ^* *ir  *&  n*  n*  nr  t* n*  t*  *i^  t*  *nr  *v*  t> *r  *ir  n* *"i*  *r> n-  i* *i*  «nr  t1  *i*  T'T'  *n  *i*  •**  *i* *r*  'i*  o*  *i*  t* 

*r  *r  'i**  '»*  i-*  -r  n*  '»*  *i*  i*    .'  'i*  V  *i*  t  t  n*  v  t*  *r  *?  t  "r  *>-  "i-  *r  'il  t  ¥  *c  t*  a*  n*  *?  'r  ?i^  'i*  ix  J»*  *i*  *r  *r  '»"  *r  *r  *»*  » r»  ^r  -v  *r  •'i*  'i*  *•*  *r  *i-  1*  v  i*  '•*  *i* 

**  MUM23.IMP    input    option    file  ** 

:.: :;;  ±:  *  ?,-. ;':  *  £  *  * ;;-  £  ;•,•  5;-  *  ^  #  >;:  *  >;:  ^;  *  5;; ;;-  s",:  >[e  £  #  *  ?;: :;:  #  :;c  sj:  ?;; ;;;  $  5;:  ^j  sj:  ^  *  *  *  5^  >^  *  *  *  5;; ;'.:  *  #  ^:  ^s :;:  *  X  ;,i  i\: 

NQM23= 

SEC3INIT    [C0DE[AB[4:39]]  ,  DATA  [AB[800]  ,M[0]  ,AD  [82]]  ,  MAP  [ALL]]  , 

?33, 

SATEMOD 
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APPENDIX  C 

Device  Driver  and  Packet  Processor 

Source  Code 

This  code  consists  of  PL/I-86  and  8086  assembly  language  modules.  When 
linked  as  described  in  Appendix  A  and  loaded  in  local  memory  of  SBC  #1  of  each 
cluster,  the  driver  handles  the  systemwide  distribution  of  user  data  and 
eventcounts  via  the  local  area  network. 

Initialization  modules  (SYSINITA  &  SYSINITB),  each  for  their  own  cluster, 
define  cluster  addresses,  create  user  eventcounts,  establish  eventcount 
distribution,  and  create  the  procedure  space,  under  operating  system  control,  for 
the  driver,  SYSDEV.  The  system  definitions  file,  SYSDEF  and  the  file 
NI3010.DCL  are  required  when  compiling  SYSDEV.  Any  user  eventcounts, 
sequencers,  or  shared  variable  pointers  which  are  defined  in  SYSDEF  must  be 
updated  when  these  items  change  with  new  synchronization  and  control  schemes. 

SYSINITA  and  SYSINITB  must  also  be  updated  whenever  changes  are  made 
to  user  eventcounts  or  their  distribution.  Recompilation  and  relinking  are  also 
necessary  to  produce  the  updated  command  files  CA.CMD  and  CB.CMD. 
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####£## 5|o;i sJS5;c##5£ 3^^ ####  >^^ s|s^^^^ ^>^  ^^  >^  ^  ^^  ^ ;^^c  ^  ^ ^ ^^  ^  ^  ^5^ ^  ^^  j|c >;; ^  ^ ;,; >',f  j|?  5^^C 
a,  »»*  *'-  *•- 

**         CLUSTER    A      INITIALIZATION    MODULE      STSINITA.PLI  ** 

SYSINITA:  proc  options  (main); 

%include  'sysdef .pli '» 

^replace 

EVC_TYPE        by  '00'b4J 

/*  main  */ 

call  define_olnster  ('0001'b4);  /*  must  be  called 

prior  to  creatine 

eve's   *  / 
/#*#*  USER  ****/ 

CALL  CREATE_EVC  (AlEVC)i 
CALL  CKEATE_FVC  (A2EVC); 

CALL  CREATE_EVC  (E1EVC); 
/***  SYSTEM  ***/ 

call  create_evc  (ERB_F.EAD); 

call  create_evc  (ERE_WRITE); 

call  create_sea  (ER3_WRITE_REQUEST ) ; 

/*  distrib.  man  called  after  eventcounts  nave 
been  created  */ 

/*  local  and  remote  copy  of   A1EVC  needed  */ 

call  distribution_mao  (EVC_TYPE,  A1EVC,  '3003 'E4)  ; 

call  create  proc  ('fc'b4,  '30'b4, 

'0941'b4,  '0800'b4f  '0053'b4, 
'0439'b4,  '0800'b4,  '0S00'b4)j 

call  await  (  'fe'b4.  'Cl'b4) J 

END  SYSINITA; 
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**    CLUSTER  B   INITIALIZATION  MODULE   SYSINITB.PLI        ** 

r^.  ^p  *<p  n^  5?  "5*  *J*  *!**  *(*  SB*  5J!  *^«  *|*  *^»  5JC  3J£  ^^  *y"  3j5  *V*  t~  *p  *i*  *i^  *i"  *§■  *<*  *p  t*  *i*  *o  *»*  "B*  *i*  *|*  *?  *»*  *n  *i*  *Jr  *f"  *»*  ^v*  *i*  *i*  *P  *F  "S*  **"*  *f*  *P  *»*  *»  *■*  *(*  *J*  *»"  ^i^  ^t1*  99" 


•  1*  *i*  i*  i* 


SYSINITB:    proc    options    (main); 

%include    'sysdef .pli '; 

^replace 

EVC_TYPE  by    '00 'M; 

/*  main    #/ 

call   4efine_cluster    ('0002'M)J    /*  mist   be   called 

prior  to  creatine 
eve's   */ 

/**#*  USER  **#*/ 

CALL  CREATE_EVC  (AIFVC)J 

CALL  CREATE_SVC  (BIEVC)J 

CALL  CREATE_EVC  (B2EVC); 

/*#*  SYSTEM  ***/ 

call  create_^vo  (ERB_READ)J 
call  create_evc  (E:::B_WRI  TE )  ; 

call  create_sea  (?RB_WRITE_REQUEST ) J 

/*  distrib.  map  called  after  eventcounts  have 
been  created  */ 

/*  local  and  remote  copy  of   B1EVC  needed  */ 

call  distribution_map  (EVC_TY?F.  B1SVC,  '?003'B4)J 

call  create_proc  ('fc'b4,  'S2>'b4, 

'094l'b4,  '0800'b4,  '0053'b4, 
'0439'b4,  '0P00'b4f  '0P00'b4); 

call  await  (  'fe'b4  ,  '0l'b4) ; 

END  sysinitb; 
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/**     FILE  SYSDEP.PL I      MARK  A.  SCHON     24  JUL  35     **/ 

/**  This  section  of  code  is  siven  as  a  PLI  file  to  be  **/ 
/**  %INCLUDE'd  with  SYSDEV.PLI.  ENTRY  declarations  are  **/ 
/**  Tdde  for  an  available  MCORTEX  functions.  **/ 

/timmtm  *,i-  **-  ■**-  V1*  *M  **o  «A*  ******  •*•-«**  %t*  Ug  <J*  JU  *«-  *L.  ,_',  tbdL  v»  »V  *'..  -«*  *l*  «A*  O*  *VJU  V*  *V  -iV  Vf  -1*  »U  s'»  »V  U*  *l*  *U  J/  «V  •<*  Vf  *«•  J«  V*  %'*  *>*  J*  J*  *•»  J*  »'#  *"--'-/ 
nr*v  n* *v ir  *k*"p *t*  t*  *»-*'ri  "r  n-  *i~  *r»i* i-  *r  t* *r  *t* *r  n**p -nr**»*  *r  *r* *p  t**i*  *** *r  *»* ^* **•  i*  nr-  *r  ^*»r*  *v*?t*  *fi  *r  3r"  *••  *r  *r 'i*  *i*  *t- *i*  *v*<*  *r  *»*  ***  / 

/  $  *  *  *  *  #  *  #  $  *  £  *  #  V;  $  $  *.  :<:  #  #  #  *  5;:  *  *  ^«  $  *  #  #  #  j{e  sjc  *  #  s{s  sj«  #  $  &  £  £  #  #  #  #  *  *  sj« ;-.:  *  *  ffi  #  *  s^  #  *  / 

DECLARE 

advance  ^NTRY  (BIT  (8)), 

/*  advance  (e vent_count_id )  */ 

await  ENTRY  (BIT  (8),  BIT  (16)), 

/*  await  (event_count_id ,  awai ted_value )  */ 

create_evc  ENTRY  ("BIT  (8)), 

/*  create_evc  ( event_count_id )  */ 

create_proc  ENTRY  (BIT  (3),  PIT  (8), 

BIT  (16),  BIT  (16),  BIT  (16), 
BIT  (16),  BIT  '16),  BIT  (16)), 
/*  create_proc  (processo r_id ,  processor_priority ,  */ 
/*  stack_poi nter_highest ,  stack_seg,  ip  */ 

/*  code_seg,  iata_se2,  extra_se«e)       */ 

create_sea  ENTRY  (BIT  (8)), 

/*   create_sea    ( sequence_id  )    5V 

preempt  ENTRY  (BIT  (8)), 

/*  preempt  (processor_id )  */ 

read  ENTRY  (BIT  (8))  RETURNS  (BIT  '16)), 
/*  read  (even t_count_id )  */ 
/*  RETURNS  current_event_count  */ 

ticket  ENTRY  (BIT  (3))  RETURNS  .'BIT  (16)), 
/*  ticket  ( sequence_id  )  ■-'-/ 
/*   RETURNS  uniaue_ticket_value  */ 

iefine_cluster  2NT-Y   (bit  (16)), 

/*  ief ine_cluster  ( local_rlus ter_adi ress  )  */ 

distribution_map  ENTRY  'bit  (3),  bit  (8),  bit  (16)), 

/*  dis  tributi  on_rnap  (  d  is  t  ri  but  ion_type  ,  id,  clus  ter_addr  ;  *  / 

add2titl6  ENTRY  ( F I T ( 1 6  )  ,  5IT(16))  RETURNS  (BIT  (16)); 
/*  add2bitl6  '  a_16bit_#,  ar o ther_16bi t_#  )    */ 
/*  RETURNS  a  16bit  #  -  anothe"  lobit  #     */ 
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%replace 

/* 

***   EVCSID's  *** 

(1)  USER  */ 
A1EVC                   BY  '0l'B4, 

A2EVC  BY  '02'B4, 

B1EVC  BY  '03 '34, 

B2EVC  BY  '04'B4, 

/*  (2)  SYSTEM  */ 

ERB_READ  by  'fc'b4, 

ERB_W?.ITE  by  'fd'b4, 

/* 

#**        SEQUENCER    NAMES         *** 
(1)    USER 
USSD    PROCESSES    USE   ERB_WRITE_REQUEST    ONLY 

(2)  SYSTEM   */ 
ERB_WRITE_REOUFST        by  'ff'b4, 

/* _ 

***   SHARED  VARIABLE  POINTERS   *** 

(1)  USER  */ 

PB  BY  '8CC0'B4, 

PC  BY  '8DD0'B4, 

/*            (2)  SYSTEM   */ 

block_ptr_value  by  '8000'b4, 

x-riit_ptr_value  by    'S0CS'b4, 

rcv_ptr_vai  le  by    'B666'b4, 

END   RESERVE  by    'FEEE'b4; 


4* 


■j*  <J'  «u  *u  o»  V  *A*  -^*  -'-  ^**  *''  -1-  »V  ,J*  »'-  «V  ^^  ***  -**  ^*»  V*  *•-  «JU  «JU  *>*  v  %V  »**  *•»  **»  u*  v-  *v  ***  »V  »V  *'-  ~'»  ~J-  *'-  ^l-  **-  ^'  *V  ^'  v'»  **»  »**  J'  **-  *'*  •J'  •J*  *>-  °-  *'*  ^'  **£  "''  *'- 
1*  *\-  t*  n*  *»-  v  t*  *i*  ^w*  *r  'i*  nr*  o*  'i*  *r  *?  *»*  n*  *»*  *i*  n*  1*  *r  »i*  *?  *i£  *r  *v  *r*  i»  'i*3!*  n*  •?  i^  *c  1*  n*  n*  *«*  1*  *i*  *i*  *n  n*  'ff  "r  "1*  *r  *f"  *f*  *r>  -v  HP  HP  n-  *P  HP  »r 

**  #* 

**  N 13010. DCL  FILE  ** 

ju  u*  «a*  »>*  *t»  «ju  «l*  *v«i*  »•*  «,**  »•*  .'..■■!*  »**  -j^  »•*  ***  *t*  «j*  »»*  .'-»»*  .<>  «■«  •.o  o>  *V  »V  **#  ***»•#  »V  »V  ***Vr  ■fc  *■**  *'-•  Vf  ***  *•**  *'"  ***  "**  *^*  *'i  *li  ~'e  ***■  *"i  5*i  **'  i!i  ;'£  ;'.i  -':  ;"i  i'i  ^*C 
i*  n*  t*  i*  *r*  i*  *t*  *?  *i*  t  *»*  *r  '**  *?  *i*  *c  t*  "in  *t*  *»*  *>*  *r*  *r  *»*  *»■*  vt  ^ *n *P  *r  *4*  *r  W*  ix  *^  o*1  "r  *r  *r-  *f  -r*  '>"  *r  t  ***  it  *r  *r  *i-  *r  *<*  *••  *r  *r  t  *»•*  ***  T'  *»* 

%replace 

/*  I/O  port  addresses 

These  values  are  specific  to  the   use  of  the  INTSHLAN 
NI3013  MULTIBUS  to  ETHEF.NET  interface   board.   Any  change 
to  the  I/O  port  address  of  '00b0 '  hex  (done  so  with  a  DIP 
switch)  will  require  a  change  to  these  addresses  to   reflect 
that  change.  */ 

command_register  by  'b0^b4, 

command_status_register  by  'bl'b4, 

transmit_data_register  by  'b2^b4, 

interrupt_status_reg  by  'b5'b4t 

interrupt_enable_registpr  by  'b8^b4, 

hi2h_byte_count_reg  by  'bc'b4, 

low_byte_count_reg  by  'bd 'b4  , 

/*   end  of  I/O  port  addresses  */ 

/*   Interrupt  enacle  status  register  values 
disabl«_n 1301 d_ interrupts 
ni3010_intrpts_disabled 
receive_bloc^_available 
transmit_dma_done 
re<^eive_dma_dore 

/*    end  register  values  */ 

/*   Command  Function  Codes  */ 

module_interface_loopfcack 

internal_loopback 

r  1  e  a  r  _  1  o  o  o  b  a  c  k 
go_of f line 
go_online 

ontoard_diasrnostir 
clr_insert_source 
load_transmit_data 
load_and_send 
load_grouo_addr esses 
reset 
/*    end  Command  Function  Codes 
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*/ 


by 

'<?0'"b4f 

by 

'00 '"b4, 

by 

'34'b4, 

by 

'P6'b4, 

by 

'0?'b4, 

by    '01 

'b4, 

by    '°c 

'b4, 

by    '03 

'b4, 

by 

'0S'b4, 

by 

T9'b4, 

by    '^a 

'bi, 

by 

'0e'b4, 

by 

'25'b4t 

by 

'22'b4, 

by 

'2a'b4, 

by 

'3f 'b4; 

s 

*/ 

**  CLUSTER  A   -  ADDRESS.DAT  FILE  -  USED  BY  SYSDEV.PLI  ** 

**  -   1ST  THREE  VALUES  USED  IN  SUBROUTINE  ** 

**  program_group_addresses  ** 

**  -   LAST  TWO  USED  IN  MAIN  PROGRAM  SYSDEV  ** 

**  TO  IDENTIFY  THE  LOCAL  CLUSTER  ADDRESS.  ** 

*y  *?  3j*  *■* 

*•*  *•*  »•*  **»  *•*  «•'*  J*  sBe  **f  V*  »'*  V*  ^*  **■*  %V  ***  *'*  •>•*  *V  V*  V*  »'*  "^*  *'*  ***  *V  *V  ***  *'*  fcl*  »V  *'*  •**  *f+  ***  ***  ***  »**  *V  "vV  •*'*  »•*  ***  »•*  ***  »V  ***  »'?  *V  »'*  *V  *V  "»**  ***  »'*  *'*  >**  »**  *'*  A 

^l*  '|»  *|*  1*  *!*  »t»  *|»  #|»  *|»  *|»   r^%  >»»  *|*  ^g*  *("«  *p  ^t"»  *,»  *|^  ^,%  ^(»    -,-  *■]»  *,*  *,>■  *|*  *|%  *|»  »,»  *j>   *,".*|*  #■,»  ^,»  ^j*  *p  »p    »(*  *,V   Jjfc   *j»  *p    .,-.  *p   »p  -,»  *(»  »j*  *p   *,»  *,^  »(*  -t»  *,»  »,»  #,»  ^,»  *,»  *,»  ^,«. 

1. 

'00000000'b, '00000001  'b, 

'00000000  'b,  '00000001  'b 

»>*  »'*  v*  ***  ***  *$£  *if  *V  *>•*  *V  ***  V?  V*  Vr  V*  ***  *V  V*  V*  *t*  ***  *'*  V*  ***  ***  **f  V*  V*  V*  *"■*  ***  s**  ***  *'*  **•  ***  V*  if*  V*  ***  *V  V*  *V  ***  ***  ^^  *'*  V*  ***  **''  ***  *'*  *V  *■*£  V*  •»'*  V'  »V  «''«'* 

*p  »I»  *|*    *(%  *|*  »J*    ?l5    *tS  *(»   *|^    *(*  >|%    #|-»  J,*    #,"    *("»    *|fc    Sj%  ?,»   *^»  *l*    #|-»  ^,»    *,»   *)^  *{*  *fm    *}  -  #,»  *\»    *(*  ^(»    ^i%   *|»   »|*  ^i*   J(»   *p  *,»    »(i    *(*    ^  »   »^  *|-»    *,»    *|*   *|-v   *jV    rp    rf(*  »!»   *p    ^,^  ^*    *,*   *■,■»    J,*    »(4    rf  j£» 

*j»  *^  ^i^  «^»  3Js  5JC  *|^  ^,C  J]-*  *^s  5jC  5^>  i,C  7tZ  5|C  5J»  3j^  3J5  3^*  *t'  ^^  *-,»  ?Js  3J»  3,^  Si-*  3|*  *|V  7^*  ^, '  «^  i,-  ^,»  *^*  , ,*  3,^  *-,C  *t^  3J?  ^(»  ^,  ^t,  i^J  *t-*  Xt"  i\t  ip  ltJ  *p  Jj«  i,"  i^»  *j*  Jt»  »(»  I(»  5tI  3(*  *|-  5(* 
J*  V-  »'*  »•- 

**  CLIISTEE  B   -  ADDRESS.DAT  EILF  -  USED  BY  SYSDEV.PLI  ** 

**  -   1ST  THREE  VALUES  USED  IN  SUBROUTINE  ** 

**  Dro2ram_2rcup_addresses  ** 

**  -   LAST  TWO  USED  IN  MAIN  PROGRAM  SYSDEV  ** 

**  TO  IDENTIFY  THE  LOCAL  CLUSTER  ADDRESS.  ** 

*#  *sU 

*Y*  *^r*  *t*  i'  *r  *S  *5*  *<*  *i*  *i*  *i*  t*  *S*  *i*  '»*  *!■  *i*  *v*  *t*  *r*  *B*  t*  *i*  *jt  t*  *<*  *i*  *<*  *¥■  ***  *i*t*  'f*  t*  "B*  *9*  *»*  n*  *>"  *i*  *r  ***  *?  *^  *•*  *9*  i**r*  t*  *?  SJC  *i%  *|t  »,^  *|»  !"#*  *4*  *X  ^»  J,* 
HI*  ***  n*  *"i*  "9*  *t*  *i*  *i*  *k*  *t^  *t^  A*  *(*  '»*  *i^  *T"  +\*  *fi  ^»*  *i*  5»*  *r  ^  *»^  *i*  *»*  t*  *»*  *»*  *»*  *S*  3QC  ^»  *-,S  ?,i  3^4  ^,C  Sp  ^,4  5^1  1,2  i,;  SJ?  *^*  *!*  ^  \+  5tC  i,«  J|i  ?,*  *,*  *,C  ?,  C  ?,'  i,i  ^%  >!*  5^2  3^C 

1, 

'00?00000'bt  '00000^10  'b. 
'00000000  'b,  '00000010 'b 


SYSDEV:  PROCEDURE; 

/*    Date:  24  JULY  1985 

Programmer:  MARK  k.    SCuON  (MODIFIED  CODE  FROM 

PREVIOUS  THESIS [2] ) 

Module  Function:  To  serve  as  the  Ethernet  Communication 
Controller  Board,  ECCP  (NI3010)  device 
handler.  This  process  is  scheduled 
under  MCORTEX  and  consumes  Ethernet 
Requests  Packets  (FR?)  generated  by 
the   SYSTEMSIC  located  in  LEVEL2.S-C  & 

by  USER  PROGRAMS. 
It   also   processes   any    inbound 

packets    by   analyzing   the    packet 

contents   and  making   the   aporopriate 

MCORTEX  calls.    */ 
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^replace 

evc_type  by  '00'b4, 

erb_block_len  by  20, 

erb_block_len_ml  by  19, 

infinity  by  32767; 

^include  'sysdef .pli '; 
DECLARE 


erb (0 :erb_block_len_ml )    based    (block_ptr), 
2   command  bit    (3 )  , 

2    type_name        bit    ( 3 ) , 
2   name_value      bit    (16), 
2    remote   addr    bit    (16)  , 


transmi t_data_block  based  (xmit_ptr), 

2   dest inat ion_address_a 

bit  (3)  , 
2  dest inat ion_address_b 

bit  (3) , 
2  dest ination_address_c 

bit    (6)  , 

2   des tina tion_adi ress_d 

bit  (3) , 
2  destinat ion_adiress_e 

bit  (8)  , 
2  destinat  ior._address_f 

bit  { S )  , 
2  source_address_a 

bit  (3)  , 
2  source_address_b 

bit  (3), 
2  s ourc e_address_c 

bit  (3) , 

2  source_addres s_d 

bit  (3), 
2  source_address_e 

bit  (3)  , 
2  source_address_f 

bit  ( 3 )  , 

2  type_fi°ld_a 
bit  (3)  , 

2    type_field_b 
bit    (3), 

2   data    (4)    bit     ;s)  , 
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2  USER_DATA  (12)  FLOAT, 

(TX_DATA_PTR,XMIT_PTH)  POINTER, 

/*  HIGH  MEMORY  ADDRESSES  OE  TX  DATA  PTE  AND  XMIT_PTF       */ 
/*  ASSIGNED  IN  SYSDEY       */ 

DAT*_TO_SEND  FLOAT  BASED  (  TX_DAT  »._PTF: )  , 

1  receive_data_block:  base!  (rcv_ptr), 

2  frame_status 

2  null_byte 

2  frame_length_lsb 

2  f rame_len£th_nsb 

2  destination_address_a 

2  des  tination_addr=>ss_b 

2  destination_add ress_c 

2  destination_adiress_d 

2  destina tion_address_e 

2  des tination_address_f 

2  source_address_a 

2  source_addres s_b 

2  5ource_addres5_<" 

2  source_adiress_d 

2  source_address_ e 

2  source_address  f 

2  type_field_a 

2  type_field_b 

2  data(4) 

2  USER_DATA  '12) 

2  crc_mst 

2  crc_upper_niddle_by te 

2  crc_l  ower_mi<idle_byte' 

2  crc_lsc 

(?.X   DATA    ?T?.,RCV    PTE,  BLOCK    PTT  )    ?OINTFT' 


bit 

(8), 

bit 

(e) 

bit 

(S) 

bit 

(8) 

bit 

(a) 

bit 

(8) 

bit 

(3) 

bit 

(8') 

bit 

'-:■) 

bit 

(8) 

bit 

(8) 

bit 

'.  ? ) 

bit 

(3) 

bit 

bit 

(9) 

bit 

(9) 

bit 

(8) 

bit 

(8) 

bit 

(8) 

FLOAT, 

bit 

(9) 

bit 

(8) 

bit 

:s) 

bit 

(  3) 

/*    HIGH    MEMORY    ADDRESSES    OF    RX    DATA    PTR,RCV    PTR.S. 


/! 


BLOCK_PTS  ARE  ASSIGNED  IN  FILE  SYSDEF 

D*TA_ARRIVED  FLOAT  BASED (RX_DAT A_?TR 

index  fixed  bin  (15), 
(addr_e,  addr_f  )  bit  (8) , 
address  file  , 

cop y_ie_ re  lister  bit  (8), 
(cluster  addr, erb_write_value ,i )  bit  (16), 
( jffc)  fixed  bin  (15)  , 
reg_value  bit  (8)  , 
write_io_port  entry  (bit  (8),  bit  (8)j, 
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read_io_port   entry  (bit  (8),  bit  (8)), 


initialize_cpu_interrupts 
enable_cpu_interrupts 
disable_cpu_ interrupts 
write  bar  entry  (bit(16)); 


entry, 
entry, 
entry, 


/: 


end  module  listing  */ 


^replace 


/*  codes  specific  to  the  Intel  8259a  Programmable 

Interrupt  Controller  (PIC) 


*/ 


icwl_port_address 
icw2_port_address 
icw4_po  rt_address 

ocw_port_address 


by  'c0'b4, 

by  'o2^b4, 

by  'c2'b4, 

by  'c2'b4, 


/*  note:  icw  ==>  initialization  control  word 

ccw  ==>  operational  command  wori    */ 

icwl  by  'I3'b4, 

/*  single  PIC  configuration,  ed^e  tri^^erei  input  */ 

icw2  by  '40 'b4 , 

/*  most  significant  bits  of  vectoring  byte?  for  an 
interrupt  5, the  effective  address  will  ce 
(icw2  +  interrupt  #)  *  4  which  will  be 
(40  hex  *  c)  *  4  =114  hex  *  ' 

icw4  by  '0f'b4, 

/*  automatic  end  of  interrupt  and  buffered  mode/master   */ 

ocwl  by  '3f'b45 


*/ 


/*  unmask  interrupt  4  (bit  4), 
/*  interrupt  5  (bit  5),  and 

/*  interruot  6  (bit  6),  mask  all  others 


/*  end  8259a  codes  */ 

/*  include  constants  specific  to  the  NI3010  beard 

^include  'ni3010 .del '; 


/*  Main  Body  */ 

call  write_io_port( interrupt_enaole_register , 

disable_ni3010_interrupts); 
call  initialize_pic ; 
call  ini ti ali ze_cpu_interrupts ? 

call  read_io_port  ( command_status_register ,reg_value )» 
call  perform_commani  (reset); 

call  program_group_addresses J 

/*  assignments  to  the  source  and  destiration  address 
fields  that  will  not  change  */ 

call  perf orm_command  (clr_insert_source) I 

/*  MI3010  performance  is  enhanced  in  this  mode  */ 

/V*i*-  ■'--'f  ***  *y  *'-  «V  »'•»  »  -  V*  »V  *•'*  *•*-  *"*■  »'"  -,*  *'*  «■"-*'■-  *•--'-*  «**■•  *>v  -'-  -'-  ***  %VV*  ***V*  •>*'  ■*•*  *'.  o-  JU  .>,«.•.  «lu  »«,  ou  J«J«  *u-  «j«  JU«S*  «l#  *•-  JU  -V  »'*  %'-  -J*  O*  *'-  -'-.',*  / 
*i**i*  *r  *»*■  *?  *i*  *r  *<*  *i»  *•-  V  *■*  *f*  *r*  *r  n*  *v  '.-  *i*3r  -*%*i*  *•*  *»c  *»*»r  *F  "i»*i»  i*7--  ',-  «i»  -.**.-  *r  *>-*r  *r  ".-  v  *t***»  *(*  -r  -i**.*  *r  *,^*i%  * «  **  *v  *r  *•«  *r  v  -••  / 


/* 

ASSIGN  POINTEi-.  VALUES,  PREVIOUSLY  DEFINED  -FILE  SY3DEF 

»/ 

/» 

TX  DATA  PTR  <~  P?  =  8CC0  A  FLOAT  PLOCK  OF  i-PYT2S 

V 

/* 
/* 

RX_EATA_PTR  <—  PC  =  3BC0  A  FLOAT  BLOCK  OF  4-BYT35 

*/ 

*/ 

BLOCK  PTR  <--   PLOCK  PTR  VALUE  =  8000  THE  ECP  120-BYTFS 

/* 

RCV  PTR    <--  RCV  PTR  VALUE    =  856?  THE  RD3   66-3YTT5 

*/ 

/* 

XMIT  PTR  < —  XMIT  PT*  VALUE   =  30CS  THE  TD3   74-BYT?S 

*/ 

UNSPEC(TX_DATA_PTR)  =  ?E? 
UNSPEC(RX_DATA_PTR)  =  PC? 

unsoec( Dlock_ptr )  =  block_ptr_value ; 
unspec {  rcv_ptr )  =   rcv_pt r_value ; 
unspec( rmi t_pt r)  =  xmi t_ptr_value? 

/--'   make  one  time  assignments  to  transmit  lata  dock:  */ 

t  ransmi  x  _i  ata_block  .destinat  ion_add  ress^a  =  '03^b4-J 
transmi  t_data_hlock  .dest  inat  ion_address]_b  =  '02'bi; 
t ransmi t_iata_block .destinat ion_address_c  -  '00'b4I 
t ransmi t_data_block  .destinat ion_add ress_ d  =  '0C'b4; 
t ransmi t_iata_block  .souroe_address_a  =  '33't4; 
t ransmi t_data_block .source_address_b  =  '00'b4J 
t ransmi t_data_block .source_address_c  =  '??'b4I 
t  ransmi  t_data_block  .s  ource_add  ress_d  -  '32  '"b4; 

/*  get  the  local  cluster  address  -  file  was 
opened  in  proc  proeram_group_addresses   */ 

get  file  (address)  list  (addr  e,  addr_f)» 

t ransmi t_data_block . source_add ress_p  =  addr_el 

transmit  data  block  .source  address  f  =  addr  f; 
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cluster_addr  =  addr  e  j  j  addr_f ; 
put  skip  (2)  edit  ( "***  CLUSTER  ' , clus ter_addr , 

Initialization  Complete  #*#') 
(col(15) ,a,b4(4) ,a); 
i  =  '0001'b4J 
call  perform_command  (go_online); 

/*  at  this  point  copy_ie_reg  =  R1A  ,  but 

ie_reg  on  NI3010  is  actually  disabled  */ 
call  disable_cpu_interrupts? 

io  k  =  1  to  infinity; 

/*  note:  interrupt  not  allowed  during  a 
call  to  MCCRTEX  primitive      */ 


/* 


er 
I 

a 
s 


do 
/*  b 

coDy 
call 


/* 


do  i 
/* 

end; 
call 
if  ( 

do; 
/* 

ca 

do 

en 

ca 

end; 


b_wri 
n  the 
11  pr 
et  in 
outin 
us  t  b 

whil 
usy  w 

erb_ 
_ie_r 

writ 

call 
if  a 
is  w 
see 
f  avo 
=  1 

inter 
/*  i 
disa 

coDy 


te_ 
MX 
imi 
ter 
es) 
e  i 

a 

ai  t 

wri 
eei 
e_i 

en 
pa 

hen 
tha 
red 

to 
rup 

o  j 

ble 
ie 


value 
TRACE 
tive  c 
runts 
,  so  t 
isable 
erb_wr 
ing  */ 
te_val 
ster=r 
o_port 
re 
able_c 
cket  h 
an  in 
t  out D 


=  read(EFB_lv'FITE); 
version  of  the  RTOS 
alls  clear    and 
(diagnostic  message 
he  N 13010  interrupts 
d  on  entry  to  MXTRACE  */ 
ite_ value  <  i ) ; 

ue  =  read(ERB_WRI?E) ; 
eceive_block_available; 
(inter  rupt_eriable_registert 
ceive_b lor k_a vail able) J 
ou_int  errupt  s ; 
as  been  received , this 
terrupt  may  occur  -  can 
cund  packets  are  always 


1000; 

t  window  for  packets  received  */ 
*/ 

_cou_i 
resi  st 


nterrupt s ; 

er  =  receive  dma  done)  then 


receive  Dl^A  operation  started,  so  let 
f ini  sh.  */ 

11  enable_cpa_in terrupt s» 

while  (  r.  opy_ie_resi  ster  =  recei  ve_dma_done  )  ; 
d; 
11  di sable_cpu_ir terrupts ; 

/*  ift  */ 


copy_ie_regis  ter   =   disable_ni3010_mterruDt  s  ; 
call    wri te_io_port ( interrupt_enable_register, 

&  i  s  ab 1 e_n  i  30 1 0_i  n  t  e  r  r u  p  t  s ) 

end;    /*   busy   */ 
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/*  ERB  has  an  ER?  in  it,  so  process  it  */ 
/*  no  external  interrupts  (RbA)  until 
the  ERP  is  consumed  and  the  packet 
gets  sent    */ 
index  =  mod( (f ixed( i)  -  1),  erb_block_len ) ; 

/*  32k  limit  on  parameter  to  fixed  fen.  */ 

transmi t_data_block.data( 1)  =  erb( index ) .command ; 
transmi  t_data_block.data( 2)  =  erb  (  ir.dex  }  .  type_name; 

transmit_data_block .data(3)  = 

substr(erb( index) .name_ value ,9,S) » 

transmi t_data_block .data(4)  = 

suhstr(erb( index)  . name _ value , 1 ,S) ; 

if  (erb(index) .command  =  1)  then  do; 

transmit_data_bl0ck.userj)ata(1)  =  data_to_send; 

end; 

transmi t_data_tlock.destination_add re ss_e= 

subs tr ( erb( index ) .  remote_addr ,  1,8) ; 

trans mi t_iata_block.destination_address_f= 

substr(erb (index)  .remote_addr,  9,3) ; 

call  advance  (FRE_?EAD);  /*  caution  here  !!!' 

an  ADVANCE  will  result  in  a 
call  to  VP$SCEEDULFR,  vhich 
will  set  CPU  interrupts  on  exit. 
It's  the  reason  NI3010  interrupts 
are  disabled  first  in  the 
Do  While  loop  above.   */ 

/*  packet  ready  to  go,  so  send  it  */ 

call  transmi t_packet ; 

/*  copy_ie_register  =  RBA  ,  but  not  actual  register  */ 

call  disable_cpu_interrupts ; 

/*  setting  up  for  next  ERP  consumption  */ 

i  =  add2bitl6(i,  '0001'b4)J 

end;   /*  do  forever  */ 

/*  end  main  body  */ 
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ini tialize_pic:      procedure? 

DECLARE 

vrite_io_port  entry  (bit  (8)  ,  bit(8))» 

call  write_io_port  ( icwl_port_address  ,icwl ) ; 

call  write_io_port  ( icw2_port_address , icw2)  ; 

call  write_io_port  ( icw4_port_address ticw4) * 

call  write_io_port  ( ocw_port_address , ocwl ) ; 

end  initiali ze_pic ; 

perf orm_command :    procedure  (command); 

DECLARE 

command  bi  t  (6 )  , 

reg_value  bit  (8)  , 

srf  bit  (8)  , 

write_io_port  entry  (bit  (6)  ,bit  (8)  ), 

read_io_port  entry  (bit  (8)  ,bit  (8)  ); 

/*  end  declarations  */ 

srf  =  '0'b4J 

call  write  io_port  (command  register , command ) ; 

do  while  (Tsrf  S.  '01'b4)  =  720  M)J 

call  read_io_port  ( in terrupt_status_reg , srf  ) ; 
end;   /*  do  while  */ 

call  read_io_port 

( commandos t at us_regi s t er , re^_ value ) ; 
if  (re£_value  >  '01 'b4)  thsn 
do; 

/*  not  (SUCCESS  or  SUCCESS  with  Eetries)  */ 

put  skip  edit  (  '***  ETHERNET   Board  Failure  ***') 
(col(20)fa  )J 
/*  when  this  occurs,  run  the  diagnostic 
routine  T3010/Cx,  where  x  is  the 
current  cluster  number  */ 
stop; 
end?  /*  itd  *•/ 

end  perf orm_commard  ; 
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(S) 

,Mt    (8)     ), 

(6) 

.bit    ( 6 )     )  , 

entry, 

entry, 

transmit_packet :  procedure   external? 


DECLARE 

srf  bit  (9)  , 
reg_value  bit  (S)  , 
write_io_port  entry  (bit 
read_io_port  entry   (bit 
enable_cpu_interrupts 
d i sab le_cpu_ interrupts 
write_bar  entry  (bit(16)); 

/*  begin  */ 

srf  =  '3  'M; 

call  write_bar  (xmi t_ptr_value  ) » 

call   write_io_port(  hi,?h_byte_count_reg,  '?£  'b4) ; 

call   write_io_port( low_byte_count_re<?, '3c 'b4) ; 

copy_ie_register    =    transmi t_dma_done? 

call    write_io_port(irterrupt_enable_register, 

transmi  t_ima_done ) ; 

call  enable_cpu_interrupts J 

do  while  ( copy_ie_re^ister  =  t ransmit_dma_done  ) ; 

end;    /*  loop  until  the  interrupt  handler 
takes  care  of  the  TDD  interrupt  - 
it  sets  copy_ie_re£rister  =  RBA  */ 

call  perform_comnand  ( load_and_send  ) ; 

end    transmi t_packet J 

/*'»  %*»  »'-  V  -'*  *■''  »'■*  *■'"'  V^  *•'*  *V  V'  V  ***  **•■  V'  *■''  *^-  *"  V*  *■'-  *"*  >V  *•'"  -V  *l*  "•*"  *J*  «'*  ***  W*  ~''  ■■*»  -V  *'»  ■■**  *J«  *i^  V*  V'  *-J--  •'*  *-**  »'»  -1*  -J*  ^'  *''  -J^  -J"  *'-»  ■*■*  -1-  ^'  J*  °'  -'•  • 
-n  *r  <Y^ *r  nr  *r  -r *r  ^*  *r* *^  *r  ■T'  «Y"  'cttt  *••¥  w^n-^TV'i'i-TT  TT'r'rTTTn'Jr'r'r¥  TTT'i<ir'^v^*T'iw»*'t"r  v  ■ 

y,:  >J; *  #  #  #  #  sj{  5^  ^  / 


HL_interrupt _handler:  procedure  external; 


/*  This  routine  is  called  from  the  low  level 
5086  assembly  language  interrupt  routine  */ 

DECLARE 

write_io_port  entry  (bit  (9)  , bit  (8)  ), 
read  io_port  entry  (bit  (9)  ,bit  (8)  ), 
enable_cpu_in te rrupts         entry, 
d  i  s  abl e_cpu_i  nt  er  rupt  s        entry, 
write  bar  entry  (bit (16))? 
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/*  begin   */ 

call  write_io_port  (interrupt_enable_regis ter . 

disable_ni3010_interrupts ) ; 

if  (copy_ie_register  =  receive_block_available  ) 
then  do; 

call  write_bar  (rcv_ptr_value) ; 

call   vrite_io_port (hi<?h_byte_count_reg , '05 'b4 ) ; 

call   write_io_port( low_byte_count_reg,  'f2'b4 ) ; 

/*  initiate  receive  DMA  */ 

copy_i e_regis ter  =  recei ve_dma_done > 

call  write_io_port(interrupt_enable_re2tster, 

recei  ve_dma_d one ) ; 

end;    /*  do  */ 
else 

if  ( cooy_ie_re£ister  =  receive_dma_done )  then 
do? 

call  process _packet J 

copy_ie_regi ster  =  recei ve_block_avai lable ; 
call  write_io_port  (  in  ter ru.pt _enable__regi ster , 

receive_bl  oc'K_avai lab le  ) ; 
end;   /*  if  then  do  */ 
else 

if  ( cooy_ie_regis ter  =  transmi t_dma_done  ) 
then  do; 

copy_ie_regi ster  =  receivp_block_avai lable ; 
/*  NI3013  interrupts  disabled  on  entry  */ 
end;    /*  if  then  do  */ 

>nd  HL_ir ter rupt_hand ler; 


/-  -  ~  -  „'*  o,  o,  -I*    O,  *■*■  V*  O.  *L>  -'**>-  v>-  .JL.  *.*-  tXr   ->~    V'  *<-  «.'*  *J*   >■-  -^   -1-  *'.#  ot»  -J-  ^'.  ~X*   .'«.  -.-  O*  t<«  •><  .  <  «,'  »'*  »'»  »'»  V-  V  «■*•  «.**  ->-  «.»*  *>'*  -  '  **-   -«-  -'-  « 
i*  *v  nr  i**r  ***  *v  *p  *>"  *i*  'i*  "i"  *i*  *r  *r*  *»"*  *»*  i*  *»■*  *v  ■*!-  *v  *r  -*iwr  *r  *r  *r*  n*  *y*i*  t  *r  **'  *v«  *fi  *t*  **-  i*  **'  n*  n*  *v  *c  *r  •r"o  -»"  *r-  t  -nr  * 


**/ 


process_pac*et :  procedure? 

DECLARE 

DATA_ARRIVED  FLO'T  EASED (RX_DATA_PTR ) , 

RX_DATA_PTR  PCINTE4  , 

local_evc_value  bit  (16), 

iata_ptr  pointer, 

remote_evc_value  bit  (16)  base!  ;data_ptr); 
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/* 
/* 


if  (receive_dat a_block .lata ( 1 )  =  evc_type)  then 
do? 

data_ptr  =  addr( recei ve_data_block.data (3) ) ; 

/*  remote_ev c_value  now  has  a  value  */ 

local_evc_value  =  read( receive_data_block.data ,2 ) 

do  while  ( local_evr_value  <  remote_evc_value ) ; 

call  advance  ( receive_data_block .data (2 ) ) ; 
local_evc_value  =  add2bitl6(local_evc  value, 

'0001'b4); 

end  ; 
call  disable_cou_interrupts»* 
/*  this  tiust  be  done  due  to  setting  of 

cpu  interrupts  by  calls  to  MCORTEX's 

V?$SCKFDULEE  via  ADVANCE  */ 

end;  /*  itd  */ 

IE  DATA'  IS  IN  THIS  pDB  THEN  TRANS FEB  IT  TO  USE:  HIGH 

MEMORY 

else  do; 

U.MSPEC(F.X_D»T*_?T?.)  =  PC  J 

DATA  ARRIVED  =  R^CEIV:  DATA  ELOCK.USER  DATA (1) ; 


*/ 


end; 


end  process  packet; 


/ 


v  »  -,'r    »<*  v1*  «.'-  «JU  -*1*  «V  J*  '•''   «J-»  «■'*  ■*'»  »**  "•'■»  -J*  «■'-»  *•*  V'  *J*    »'-  *''■'  "-1*  "''*  *■'••  "V  "'-  **'  **"*  •**•»«-''  *'*  >lt-  **-  »V  '^L*  "•'»  ■»'*  «■'*  V*  ***  ■»'»  ■»'■»  • 

nt*  t*  **'  nr  *r  -nr  *v  *r  *i**  *v  *»*  •»»  *v*  n*  *r»  *v  n-  "i-  ?i*  n*  *.*  -i**  *r  »r  'i-  *r  i*  *r  *v  *r  *v*  *i*  *r  *f  »r  *v  i*  *r  *t»  V  *v  v  *r»  « 


a-  y-  *'*  •»»-  • 


•  -i-  t  *r  'i* 


progra7i_£roup_aidresses  :  procedure; 

DECLARE 

1   £roup_addr (40 )  based  'group_ptr), 

2   rrc_^roup_f ield_a 

bit  (8), 
2  mc_2rouo_f ield_b 

bit  ( 8 ) , 
2   nnc_£rroup_f  iel  i_c 

bit  ( 8 ) , 
2  mc_group_f iell_d 

bit    [  8 )  , 
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2  mc_£roup_f ield_e 

bit  (3), 
2  mc_s,roup_f  ield_f 

bit  (8); 


TECLARE 

(group_ptr,p)  pointer, 

(field_e,  fieli_f)  bit  (6), 

bit_8_groups    bit    (8)    based    (p), 

( i , num_groups ,groups_times_6)  fixed  bin  (?)* 

unspec (group_ptr)  =  xmi t_ptr_valuel 
open  file  (address)  stream  input; 
get  file  (address)  list  (num_eroups) J 
do  i  =  1  to  num_# roups? 

group^addr C i ) . mc_£roup_field_a  =  '03'b4i 
a:rouo_addr(  i  )  .mc_2,roup_field_b  =  '00'b4J 
2roup_addr( i ) .mc_group_field_c  =  '00'b4; 
group_addr( i ) . mc_group_field_i  =  '00'b4J 
set  file  (address)  list  ( f ield_e ,f ield_f ) ; 
group_addr'. i ) .nc_sroup_fi eld_e  -  field_e; 
group_addr ( i ) . mc_«roup_field_f  =  field_fl 


end; 


/*  do  l  */ 


call  disable_cpu_interrupt s» 

call  write_bar  (xmi  t_ptr_val  ue  )  ♦* 

call  wri te_io_por t ( high_byte_count_reg,  '00'b4); 

groups_t imes_6  =  6  *  rum_groupsi 

o  =  addr  (groups _times_6) ; 

call  wri te_io_por t ( low_byte_coant_refi; .  bit_8_groups ) » 

copy_ie_re*?i  ster  =  transmi  t_dma_done  ; 

call  write_io_port( in terrupt_enable_ register , 

transmi  t_dma_d one ) ; 
call  enable_cpu_interrupt s 5 

do  while  ( ropy_ie_resis ter  =  transmi t_dma_done  )J 
end;    /*  loop  until  the  interrupt  handler 

takes  care  of  the  TEE  interrupt  - 

it  sets  CQPY_IE_PEG-  =  Fl.A   */ 

call    perform _comm and  (  load_srroup_addr  esses  ) ; 
end    program_group_adi resses ; 

*r*  *y»  t»  -T*  i»  *»*  i*  *t»  *v  *r  f  -r»  *»*  *v  i*  f  'i*  i-  *r  i*  i*  -»*  1*1**0  i»  1*  i»*V  *>*»*  n"  i»  »»*»i-  **•  i*  i»  n*  1*  -\*  i*?r*  ~r  *»■  *r  *v  1*  1*  '1*  *r»  t  'i*  t"  *i*  *v  *«* 


■-    I 
'V 


end;    /*  system  device  handler  and  packet  processor  */ 
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**  ASMR0UT.AS6  FILE  ** 

extrn  hl_int errupt_handler  :  far 

public  write_io_port 

public  read_io_port 

public  write_bar 

public  initialize_rpu_interrupts 

public  enable_cpu_i nt errupts 

public  disable_cpu_in terrupts 

•    *'*  *»a  *>*  o*  «t,  «■«  o*  *V  »<*  ■.'*■  <j..  »v  V-  *■'*  —r  **'*  •*'*  ***  *' *  *Jl*  ■*'-  V'  *■' *  ■*'*  -*■*  *>■'  ■■-'*  -'('  *' *  ^JU"  V*  *V  *■''  ■**  ***  V«*  *•*-»  Vr  »**  *•■■'  Ol*  y*  »y  v'  *  *.*»  «i*  »■.»  «.'.»  y*  »**  ***  *■'»  ■>■'*  -''*  ■•'■*  •*•  ***  "-'  -  M* 

op  -y*  ^i*  ***  *r  ***  nr  •"**  n*  ***  *r  *»**r  *t*  *i**  n*  *r  *r  i*»r  t'Ti'^V'r'rvvTvvvvrTTTr'rv  *r*+fr  i*  *r  rgfi  *fc» .»,«  ^  #,-  *i»  -,*-!*  *t*  'c  -»»  n*  '»-*(» 


wri  te    io    dot t : 


;  Parameter  Passing  Specification: 

entry 
■parameter  1     <port  address> 


exit 
<unchansed> 


parameter  2 


<value  to  be  outputted>   <unchans;ed> 


dseg 

port_address    rb    1 

cses: 


push  bx  ! 
mo  v 
mo  v 
mo  v 

nov 
mo  v 
mo  v 

mo  v 
out 


push    si!    push    ix !    push    ax 
si,     [bx] 
al,    [si] 
port_address ,    al 


si,  2[bx] 

al,  [si] 

dl,  port_eddress 

dh,  00n 

dx  ,  al 

pop   ax!    pop  dx!    pop   si!    pop 
ret 


j'i  *'l  jV  5*J  5*1  J*C  5**  ?*»  5*1  *'*  "*"  j'"  ?*C  5'»  J1*  5**  5*1  3l*  *'X  ^i  »'-  I*.  5lJ  j't  5li  ^'l  ^*t  5*?  j't  ?'c 


•v  *r*  *r  *•-  »r  *r- 


p  x;  J-C  3.1  *, .  ,.»  »,-  5.4  *.*  ;r 
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read_io_port : 


Parameter  Passing;  Specification 

entry- 


parameter  1 
parameter  2 


<port    address> 
<meanin^less> 


exit 

<unchanged> 

Oegister  value> 


csee 

push  bx  !  push  si!  push  dx !  push  ax 

mo  v  si  ,   [bx] 

mov  al,   [sil 

mov  port_address f   al 

mov   si ,  2 [bx] ~ 

mov   dl ,  port_address 

mov  dh,   00h 

in  al ,   dx 

mov  [si]  ,  al 

pop   ax!  pop  dx!  ooo  si!  pop  bx I 

ret 

•  *tt.  ?fe  •**•**  *"*  ^r  ******  «v  **f  ju  *j*  *.'»  x'*  *v  y«  **-  «ju  --  »i*  **f  ***  «***  •**«.»«*  *.v  ***  %**  *v  »•-.  -  y  *v  •»•*  v*  ^*  ***  "*•  ***  *V  »**  *,»  V*  *'*  *>'*  ***  "J*  *•**  ■*■-  *'*  ^*  *•'*  *'*  *>+  ***  »■*»•*  »«. 

write    bar: 


Parameter  Passing  Specification 

parameter  1  'and  only):  the  address  of  the  data  clock 

tc  be  transmitted  or  received. 


dses- 

e_bar_pcrt 
h_bar_port 
l_bar_port 

temp_e_by te 
temo  es        rw 


equ  0b9h 

e  a  u  ?b  a  h 

equ  0bbh 

rb  1 
1 


cses 

;  This  module  computes  a  24  bit  address  from  a  32  bit 
;  address  -  actually  a  combination  of  the  E3  register 
♦  and  the  IP  passed  via  a  parameter  list. 

push  bx !  push  ax!  push  ex!  push  es !  push  d^ !  pish  si 


-nov   dx  ,   3800h 


I  shared  memory  segment 
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mov 

es, 

dx 

mov 

temp 

_es,  es 

nov 

dx  , 

es 

mov 

si,   [bx] 

mo  v 

ax,   [si] 

mov 

cl,   12 

shr 

dx,   c  1 

mov 

temp_e_byte,    11 

mov 

dx , 

temp  es 

mov 

cl,   4 

shl 

dx,   cl 

add 

ax,   dx 

jnc 

no_add 

aid_l : 

inc 

t emp_e_ byte 

no_add : 

out 

l_bar_oort ,  al 

mo  7 

al ,  ah 

out 

h_bar_port,  al 

mov 

al ,  temo_e_byte 

out 

e_bar_port ,  al 

pop 

si  !  pop  dx !  pop  es ! 

pop  ex !  pop  ax !  pop  bx 


ret 


initial! ze_cpu_inte  rrupts : 

;  Module  Interface  Soecif i cat  ion : 

;     Caller:        Ethertest (PL/I )  Procedure 

;      Parameters:     NONE 

ir.itmodule  cseg  common 
or?  114h 
int5_offset   rw  1 

int5_secment   rw  1 

cses 

push  bx 
push  ax 

mov  bx,   offset  in terrup t_handler 

mov  ax,   3 

push  ds 

m o v  d  s  ,   ax 
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pop 


mov 
mov 
mov 
pop 
ax 

POD 

sti 
ret 


ds  :  int5_of fset ,  bx 
bx,  cs 
4s:int5_s*egment ,  bx 

ds 

bx 


enable_cpu_interrupts : 

Module  Interface  Specification: 

Caller:  Ethertest (PL/I  )  Procedure 

Parameters :  NONE 


sti 
ret 


disable_cpu_int errupt  s : 

i    Module  Interface  Specification 


Caller: 
Parameters : 


Ethertest (PL/I )  Procedure 
none 


cli 


ret 


interrupt  handler: 


5  IP,  CS ,  and  flags  are  already  on  stack 
;  save  all  other  registers 

push  ax 

push  bx 
push  ex 
oush  dx 
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push  si 

push  di 

push  hp 

push  ds 

push  es 

call 

hl_interrupt_handler  ;  high  level  source 

J  routine 

J  restore 

registers 

pop  es 

pop  is 

pop  bp 

Pod  ii 

pop  si 

pop  di 

pop  ex 

pop  hi 

pop  ax 

sti 

iret 

end 
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APPENDIX  D 

Distributed  Decision  Algorithm 
Source  Code 

PA2,  PA3,  PB2,  and  PB3,  the  distributed  user  processes  which  implement 
the  distributed  decision  algorithm  described  in  Chapter  III,  are  documented 
herein.  Note  that  the  systems  file  SYSDEF,  described  in  Appendix  B,  must  also 
be  available  for  compilation  of  each  user  process. 

Processes  PA2  and  PA3  are  linked  as  described  in  Appendix  A.  Their 
associated  command  files  NUM12.CMD  and  NUM13.CMD  are  loaded  into  local 
memory  of  SBC  #2  and  SBC  #3  respectively  in  cluster  A  at  runtime.  PB2  and 
PB3  produce  NUM22.CMD  and  NUM23.CMD  which  are  loaded  into  the 
memories  of  cluster  B  in  the  same  way. 

Processes  are  loaded  when  requested  under  MCORTEX  control  and 
execution  begins  and  continues  until  an  await  state  is  encountered.  Once  all 
processes  have  been  loaded,  the  various  await  states  will  be  satisfied  by  advances 
of  eventcounts  in  other  processes  and  operation  will  continue  until  all  input  data 
vectors  are  processed. 
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/  *f*  3JS  5JS  5Js  *,»  -,-.  5,i  ?JX  ^p.  «j(  3JC  5jC  X,X  *,-.  3yC  -,X  *,-  5,C  3QE  *,C  ^JJ*  5JC  3£»  5JC  5^  •,*  3Jt  3JC  ,-[-.5j£  3JS  *y»  ^'p  3JC  3J*  5ji  5JC  *f*  *F  *J*  t*  *9*  *5*  •P  3j*  *i*  *»**t*  *F  •?  1**  *»*  *.^  *f*  *"i*  *%*   / 
/  5JC  5JC  ,p  *,-*  >JC  Jjt  »,i  5JC  3j£  ^*  o^s  3,C  i,i  3,1  -,i  5JC  5jC  2£C  3y»  Jjt  ?,t  5JC  «^£  «yi  J^i  J|C  3JS  ^"  Jpt  *,*  *,£  ij*  .-y*  5JC  ^.  ?,£  5,*  3JI  «y*  3Ji  «^  ^1 Sj£  ^i  J|t  *^*  5^>  *Jt  3J*  i,i  5ji  >J?  3|J  X,t  ,tt  1,*  5j€  "   / 

/*  */ 

/*    PA2  is  resident  in  local  memory  of  SBC  2,  CLUSTER  A.  */ 
/*  #/ 

/*   This  procedure  performs  the  following  operations:  */ 

/*  */ 

/*  1.  Loads  quadratic  eauation  parameters  A,3,C,D.  */ 

/*  2.  Reads  sensor  A  observation  vectors  from  disk.  */ 

/*  3.  Computes  LLF  (  LAMBDA_A_X  )  for  local  use.  */ 

/*  4.  Computes  (  LAMEDAJIJC  +  L*M.BDA_?P_Y  )  the  */ 

/*         sum  of  the  local  and  remote  sensor  LLR's.  */ 

/*  5.  Compares  the  result  to  the  decision  threshold  *./ 

/*        and  displays  the  final  result  and  decision.  *'/ 

/*  6.  Performs  steps  2-5  for  each  input  vector.  */ 

/*  */ 

/,'-   -'^    %1#U#  mt*   -K,   »<*  »»-  wJm  ,',  „•*    -'*  -'*  ***  »''■  -'*  *■'-  *V  «•'*  V'    "'*  ■»'-  *•'-  *'-  »>**  *^   *■*'  ">'*  -*"   *•**  *-*■*   -*'  ***   **'  *;*  **-  "'-*  V'  '■'  V*  ***  V'  -''    V'   -1'  *■'-  -**  "-*'  ■*•  -1-  *'-   «-'-  ***  *'•*  i  "  *'*    -'-   ***       / 
*r*  *"»*  ">*  'i*  'i*  ***  *•*  *»**  't1*  "t"  ~v"  'i"  *i*  *i-  0fi  ***  -r*  *«*  *i*  *t*  "  ■"■  *i*  *•*  *r*  *t*  *^*  ***  ^*  *T*  **^  *^"  *f*  *•*'  ','*   »    *T*  T  *»*  *i*  nr*  ^*  ***  *r*  *i*  *f  *t*  nr  t*  *p  *»*  "i*  **t*  *r*  *r*  'i%  *i*  *>■*  "i*  / 

/»**  **■*  ^^  V?  *'*  *V  *'**•*  w*  *'■*  «*^  *•»  o^  *•*  y*  *■*  y*  «v  »■»  »**  v*  »'*  *'*  »*■*  *■•*  v*  »'*  »<*  ***  ^**  »**  »•*■  ***  *'*  ***  ***  V*  V*  *V  *'*  »'*  »'*  ■*''  %l*  *■'*  **'  °*  *■'''  ***  *'   *'*  *'■*  ^,-*  *''  ■  '*  *'*  *'*  *'*    / 
^(»  ^»    *|»  ^»  *|»  *^*  *,»  »|»  *p   *i*  *jS   ^j*  *^*  *,»  ?|^  *,*  /|>  ^,»  »(»  *|*   >,»  *|»  *,»  *,»  *|»  ^|*  *,»  ^|»  *|»  Jp  #f»  ^^  »!»   *(S  #|*  *|»  ?,»  Jp  *-,S  ^,»  *,i  *,»  ^(-«  *|p>  *,■«  ^i*  ^,%  n1*  *>»  ».s  pj*   *,»  >(-,  ^p   ,,■•  »t-    -p.  *(*     / 

PA2:    PROCEDURE; 

%INCLUEE  'SYSLEE.PLI 'J 
^REPLACE 

PC    BY  '^Dtf'B'i,  /*  ?3  IS  SET  TO  THIS  VALUE  */ 

TRUE  BY    'l'B, 

F»LSE  BY    '0'B, 

ONE  BY    '0001'B45 

DECLARE 

/***  v*  »v«i#  »'*  **^  *'»  >'*  ■>'*  y-  *•#  *•*  *1^  ***  *•«■  ^'*  »>*  ***  »v  *•#  »•*  ■»'*  »■*  V*  y^  <»•**•*  ».•*  »•*  »^  y*  >■*  *•*  »•*  »•*  *'*  *^  *•*  ^*  *■»  *v  »'*  »'<•  tv  *■*  k»*  ***  »v  »•*  «^^  fcy  *•*  »>^  ^'*  / 
"i-  n*  •Vt-*  'i-  *(*  V  ■***  *i*  *r»  *f*  *^*  *i-  *r  i*  *r  *i*  *»c  i*  *»■*  i*  *»»  *»*  */*  V  *>* *>v*  »r*  t*  t*  *r*  *r»  *r**i*  *»*  *.-  *i-  't*  v  i*  *i*  *i*  'i*  *r  'i*'.*  *i*  n*  *.'  »*.*  n*  *>•  *i%  *i*  / 

/*  PARFILE  CONTAINS  TH^  FOLLOWING  PA:-.4METEP3  */ 

/*  */ 

/*         1.  MATRIX/VECTOR  DIMENSION.  */ 

/*          2.  D  DIAGONAL  ELEMENTS  CE  THE  MAT.-.I  X-A  .  */ 

/*                       3.  CCL  ^Y  COL  ELEMENTS  BELOW  DIAGONAL  OF  */ 

/*                                      MATPIX-A.  -/ 

/*          4.  D  ELEMENTS  CE  VECTOR-?.  */ 

/*          5.  S CA LA R-C.  */ 

/*          6.  THRESHOLD.  */ 

/*  -/ 

/*  DATEILE  CONTAINS  THE  FOLLOWING  VALUES  */ 

/*  */ 

/*  1.  D -ELEMENT  X- VECTORS.  */ 

/*  */ 

/  *-,*  *j*  «|«  *,»  ,,»  »(v  #,»  *,I  i,*  *,C  i,X  5,C  »,;  ?|*  5)J  J,^  5,i  J(I  3(C  3(I  5ji  ip  J,J  ,£  5,1  5,C  i,C  i,C  ^  5,S  5^i  J,*  *,»  5^*  i|C  *,'  ?i*  *,*  *»£  3,*  *,i  »,C  7,^  *j*  *i"  *i*  *'*  *i*  *i*  *^  *.*  ^i*  *i»  ?!*  / 

(PARFILE, DATFILE)  FILE, 
EOF  BIT(l)  STATIC  INIT(FALSE), 
(I,  J, D.N)  FIXED, 
(A(52B)  ,B(32),C,T2,X(32) .THRESH , LAM3DA_ k _I)    FLOAT, 
K  BIT'16)  STATIC  IN  IT  (  '0000 'B4) , 
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T*  n*  *i»  *»*  i-*  'i»  ***  "i*  *r  *P  -»*  *»*  *■■*  *^  *r»  -r  *»*  *i*  t*  «"r  *i»  *»*  *r  *i»  *r  *i*  t*  *P  *r  *r  *r  n*  *r  *r«  nr  '.*  i*  ***  i'*r  ¥  t  *i*  n*  *r  tvVt  t*  *r  V  i*  *r  / 
/  *»*  *P  / 

/*      P3    SET    TO    PC    TO    BE    ADDED    TO    SEGMENT   ADDS    0^00  */ 

/*  #/ 

/  *|»  3JS  »,£  *!»  SJC  5JC  J)S  #-,>»  i,»  XfC  «f«  *^C  )|C  Jj»  5JC  *,,  5(C  ^»  J[S  J,£  J, *  Jjl  ;,£  5,i  >JC  5,»  JjC  5JC  SJC  l^X  2J*  J,»  S|i  *,£  3J»  5j-»  »,*  ?f»  3JS  5J^  *|-*  *j*  »JC  Sp  ?JC  ^,t  X,S  »,«.  *,*  J,t  *,S  *(»  i,C  JJC    / 

P3    POINTER, 


/*l*  s1*  «■**'.»  ■•■.  «i*  «jli  -■*  «c>  v  «V  *'*  *"*  *V  ***  **»  ■*'■*  »**  ^*  ^*  J<  *V  »'■»  V1*  >*^  »'*>'<  *V  "•**  ■*'*  ***  *'*  *V  *V  *'*  »'■*  »V  »'<»  ***  ***  •"*•*  *'*  ***  V*  v*  »'*  *•*  »'*  ***  »■'*  »V  ***  ■■'*  *'*    / 
■»■(-•  ^|»  *j»  *y%  *^»  *|»  *|»   *,■*  *^*  *^>  *|»  *[»  *,-*  #-(fc  »|»  *,*  »,»  #,»  *y*  'i*  'i*  *t*  *f*  ***  *P   1**1*  '1*  *(*  *!*  1*  '1*  "1*  *i*  1*  *"t*  *l*  *l*  *l*   *.*  *l*  *(*  *l"  *t  *  *l%  'I*  *l*  ■*!"  'I*  'i*  *l*  *l*  **;*  *P    / 

/*  */ 

/*      BASE    LAMBDA JB?_Y      AT   P3    =    PC    (OFFSET    ADD    TO    DiT1-      */ 

/*  SEGMENT    =    0800    )         */ 

/*  */ 

/***  ^*f  *V  ^^  ***  ***  ^V  »'*  ***  V*  *V  *V  ***  ^^  *'*  ^^  *V  **»  **•  »'*  ***  *V  ^*  ***  »**  V**M  V*  V*  *f*  V^  *^f  *'*  v*  *V  ^V  »Af  ***  4*  v-*  V*  V?  ^^  ***  *^  *•*  *■'*  *^  ***■  »**  *»'*  ,J-'  *"*  v*  / 
*i*  *r»  n^  *r»  *i*  *i*  *r  *i-*  *i*  *ir*  *S>  ■*•*  -»**  *v*  **•*»*  nr  ^*  t*  t  n*  *r  *r  n5  if  *r*fi  *r  *»»  *r  *r  i*  *i-  *»■  *r  'i^  v  1**1*  *r  *r  n*  *v  n*  ^*  **-  *r*  -v  t  *f*  't*  tt*  T  n-  / 

LAMBDA_BP_I    FLOAT    5ASED(?3); 
/*    SET    POINTEFS    TO    VALUES    INDICATED    IN    REPLACE      ABOVE    'V 
UNSPEC(P3)    =   pc; 


/  0*  *t-  Urn  *V 

/  *»»  *f  »t»  ir 

«ju  »v*  *»*  ».>-  •,»*  »<*  «v  ¥"  ^  t'r  V'  V'  *''  5*"  'tt  V*  V"  sfc  V?  V*  •*■»  *'-  Vff  V*  ***  ***  s8?  ***  *,,»'*  •**  *J*  *i>  ***  »'*  v»  ^»*  »»*  »**  »  *  »'*•  »•*  *v>  **-  0-  »•*  »■-  «■< 

*r*  *i*  tp  *r**r'  *i*  *n  *V*  i"*  nr  *•*  'r*  *i*  i*  *•*  '<*•  n*  *v  *i*  *i*  *i*  **"■*&  +i*  *4"  t*  *it  *i%  *v*  *i*  *»*  *t*  *«*"  *i*  "i*  *S*  ***  1*  *t*  *i"  *i*  *i"  *'*  'i*  *i*  *t*  t*  *i' 

■  ***/ 

/* 

*/ 

/* 

INPUT    PARAMETERS    FROM    DISK    FILE 

*/ 

/* 

#/ 

/* 

MATRIX    &    VECTOR    DIMENSION    (D    =    INTEGEP) 

*/ 

/* 

*/ 

/* 

CALCULATE    N    =    a   OF    MATRIX    ELEMENTS    TO    INPUT 

*/ 

/* 

*/ 

/* 
/* 
/* 

MATRIX-A       (SYMMETRIC) 

DIAGONAL        ELEMENTS         FUST         (#   =    D) 

*/ 
*/ 
*/ 

/* 

COLUMNS    BELOW    DIAGONAL    NEXT         (#    =    N-D) 

*/ 

/* 

VECTCR-B       (D    ELEMENTS) 

*/ 

/* 

*/ 

5CALAP-C       (1    NUMBER) 

/* 
/* 

THRESHOLD    (1    NUMBER) 

/'rr*i»  V 

»V  »'*  -'"  V'  »V  «■''  -'-  *'-  -'*  '■'«•  "''  -x'  •*•  ■>''  "'-  -''   -'f  V'  V1'  ***  V'  »'*•>-  *V  "'-  -'''  -'"   •■'  V'  *■'-  V*  -'  "'•*  *J-  ^^  -f  >''  *''  ■"  -''  *>''  "-'-  *■''  '  *  -'"  -**   -'*  *•' 

•t*  i~  "1*  '1- 1*-  *.'  *f  T*  1-  *r  t  -r  '1*  'i*  *r  n(*  Is  *r  n*  *»*  *r  *i*  *r  *r*  '1*  *»*  1*  *\%  *»-  *i*  •nr  *»*  f  *r  "v  *n  *c  n-  «v  '»*  i'*  »p  *c  *n*  *t*  *i*  *c  1 

'•**/ 

OPEN    FILE 'PAP FILF)    STREAM    INPUT; 

GET    FILE(?4RFILE)    LIST    (D); 

M    =    ( (D    *    D)+D)/2J 

DO    1  =  1    TC    r, 

GET    FILE(PAREILE)    LIST     (A(I))J 
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DO  1=1  TO  d; 

get  file  (pari* ile)  list  (  b  { i  )  )  ? 
end; 

-vt  FILE(PAREILE)  LIST  (C, THRESH); 
PUT  SKIP  LIST  ('DIMENSION  =  ' ,D  , 'THRESHOLD  =  ', THRESH); 

/  ft  ft  / 

/*         INPUT  6ND  PROCESS  X-VECTCRS  */ 

/*  ft/ 

/»'*  *'#  «.»*  iJU  «'»  *•*  JU  -."-  »•*  »"  *'*  %'*  *U  »'*  »'*  *•*    -.1-  ■>U*V  ••-»»**»*  »•-<  «.»*•  J>   »'**•*  *>#  *>*  *•»«.»*  »'*»'.»»,  O*  »»-  s.',  »•«.  0#  »U  *.'*  *!**'-  *•..  »•*  «,«-  »U  »'*»!*  «.•#  .•-  »•*  -»*  »•,       / 
*t%  "i*  *r  or  'i*  *)■*  v  *»-*  *i*  V  *»*  *•*  't*  *o  *r  *p  i  *i*  'i*  *i*  '»*  n*  *r  *■«*  np  *r*  *i»  *»*  *p  «v  *r>  *<*»  *i*  *i»  *i*  *•*  *r  *i»  *r*  *i*  -«»  or  or  or  *t~ '  -  or  or  or  or  ■ .  or  o*  or  / 

ON  ENDFILE(DATTILE)  EOE  =  TRUE; 
OPEN  FILS(DATEILE)  STREAM  INPUT; 

DO  WHILE (ECF  =  ?ALSE); 

K  =  »DD2BIT16(K,0NE); 

PUT  SKI? (2); 

DC  1=1  TC  d; 

set  eile(dateile)  list  (x(i)); 

put  skip  list('x  (',1,')  =',x'd); 

end; 

/*    C  » L C      LA M3D  A _ a  _X    =    ( X-THANS )* ( *    _ yA  T?.  I X  ) *  (  X  )  */ 

LAMRDA_A_X   =  0J 
DC  J=l  TC  D-li 
DO  I=J+1  TO  Di 

lambda  a_x  =  lambda _a_x  +{  a( i+j+l ) *x( i )*x( j) } ; 

end; 

end; 

T2  =  0; 

DC  1=1  TC  Di 

t2  =  t2  -  (  a(i)*x(i)*x(i))! 

end; 

lamrda_a_x  =  (2*lambea_a_x  )  +  t2 j 

/ft  aod  lambda_a_x  to  (  b-vect0r)*(x)  &  store       */ 

DC  1=1  TO  d; 

lam3da_a_x     =  lam3da_a_x    +  (  b(i)  *  x [ i  )  )  5 

^nd; 

/ft  at)D  LAMBDA_A_X   TO  C   S,  STORE  IN  LAMBDA_A_X        */ 

LAMRDA  A.  X   =  LAMRDA  AX    +  C; 
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/si  &  s!; ;£;  afi  V* i£  yc  ^r  •*•  ate **•  A  ye  A •**  *** v*  y* ifie  y< *v •*•  *** *'*  *** ye  y* y* ***  y*  •J*  *•* *v *** ye a** »**  y*»  y-  y* *»* •»«* y*  y> »v *»*  *■- y?  *•* *'■•  *■*•.<*%*-    / 
*(*  *f*  nr*  n*  n*  n*  n*  *t*  ^*  *r-  t*  *i*  *v  *r*  *p  *r*  'i*  ^r*  *r*  *p  *fi  *t*  *n  'f  *i*  *r*  t*  *r  n*  i*  n*  *r*  *t*  ••i4  n*  Hr  t*  *v*  *e*  n*  ?r*  *r*  *r*  *(*  *i*  *t"  *■»■•  t*  *i^  ***  'i**  *»*  *r*  *p    / 

/*  */ 

/J    AWAIT    LAM3DA_E?_Y    CALCULATED    IN    THE    OTHER    CLUSTER      */ 

/«.'»  ***  -L.  -'*   ->-■  »'.*  >•*   »'.*  «J  '  »'*   ***  «.<»  %U  kb  vU  »'-    *f*  %t*  tl,  .^„  .  v  ».*#  *JU  »JM  »L.  «J*  O*   ^'-  .J-    -»*  &te  »'*  ht*  «V  V  -'"  +■'+  -*•*  "'*   »  '■*  "•**»  »'*  -'  -  "'•*   •*'  *  "'**   *•'*  -1-   -■'  -  »'*  *•'*  •»'-   -'  •  •"'(*      / 
*r  *v  *r  n*  nr  »i%  *r  *i»  *r"T*  *»*  -v  *r  *r  *r  *»*  'r  -v  t 'rvT  vt'TT  *i*  *r  *r  *i*  n5  ***  *r  "V  ^F  *r  *i»  t*  t*  *v  "r  *y»  -.■*  i*  t»  f*  i*  *F  -r  *r  nr  *r  *i-  *r   / 

CALL    AWAIT(BIEVC.I); 

PUT   SKI?(2)    LIST('LAMBDA_A_X      =',LAMBDA_A_X    )5 
PUT    SKIP   LIST         CLAMEDA_BP_Y    =  '  ,LAMEDA_E?_Y ) I 

*r  *»*  *r  nr  n*  *»*  n*  *r»  i*  i*  *»*  n*  *»"*  n*  *r  m*  *»*  i-  *»»  '.^  •»*  'i*  i*  *r  i*  i*  'r  *i-  *r  *r  t*  *r  •»*  *r*  nr  *r  *r  *»■*  n*  *i*  *i*  "i-  *v»  *r  i*  -i»  *i*  *i»  *i»  *i»  *i"  *i-  *r»  *i*  / 

/*  */ 

/*  ACP   THE    LAMBDA   3P_Y    VALUE    RECEIVED    FROM  */ 

/*  THE    CTREE    CLUSTER    VIA    THE    ETHERNET    TO  */ 

/*  THE    LAMEDA_.A_X    VALUE    CALCULATED    IN    THIS  */ 

/*  CLUSTER,    AMP    COMPARE   TO    THE    THRESHOLD.  */ 

/*  */ 

/u-  ••*  o,  k,v  y '  %«  -'-*  *v y-  »' ■  »'«•  -i-  -^  »''  »•<•  «•'  y#  »r -  y*  «■»  *v y«  - ^  »*•  v-  *.'■» >^-  «j-  y-*  -1-  v -  y«  ^ ' y*  ->*  -'-  «u  »•* »'-  «o  ^-  -u y« y>  ^'  -'-  » ■-  — -  «j-  -.'- » '  «■*  y*  •»'-  / 
"i*  'i*  »i*  *«'■  n-  *.*n*  *r  *r  "»'  '4*  *nH  T*  't"*  *»**r*  "t*  *i»  t*  i"*  *i*  n*  i*  *r  nr*  ^"n*  *r- 1*  *i*  nr*  i*  *i*  *»■»  "f*  *v  nr  *t*"i*  **i*  i*  *»*•*>  't*  t*  *k*  »r*  ***  *i*  n-  *f*  *i*  *r  ***  / 

t2  =  lambda_a_x  +  lambda_3p_y? 

if  (t2  n-  thresh)  then  do ; 

put  ski?  list (  'result  =',t2,'is  >  threshold  ')j 

£vd; 
"LSE  do; 

put  ski?  list ('result  ='.t2.'is  <  threshold   '); 

end; 

DO    1=2    TO    10(50; 

do  j=0  to  500 ;   /*  delay  loo?  ';: / 
end; 
end; 

/  •.**  *•*  »'-  2»*  y-  y*  y*  .'-  j*-  »■-  y*  *•-  »•-  >■»  j;  ;>»  y*  y.  ju  y*  *uy>  j-  ;*£  y^  v^y;  j'c  jV;  :*;;'•;  "f*  ;'^  ;*i  ;'i ;':  i'z  s1* ;';  J*i  ;*t  s'c ;';  y<  ;'*  *■*;  >': « ;'c ;';  .': ;';  s'i  ?'*  / 

/*  */ 

/*      NOTIFY    FOARD    3    TO    CONTINUE    WITH    NEXT    INPUT    7ECT0-    */ 
/*  -/ 

CALL    ADVANCE(A2EVC); 

END?  /*    END    OF    DO   WHILE    (EOF    =    FALSE)    LOO?    */ 

PUT    SKIP (3)    LI  ST ('END    OF    INPUT    DATA'); 
END    ^^2; 
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/%,'*  v >  -j*  <JU  -jU  -V  V'  *-'-  -J**  **'•*  **•  *•'"  "'-  **'*  -**■  V*  *■*-  **■*  V'  *V  •*+  *■'■'  ,jLr  -'"  -**  -'*  *•*■*  V-  *V  -*-*  ***  V*  ■J'  *^*  *"*  -V  *'*  *•*'*  V*  *•'"  *•**  t1*  **V  *JL*'  *'*  *V  *•**  -'•*  *a-  «>  V  »'■•  »'*  vU>  -J*  v  v<-  Jy  V"     / 
*r*r,nc'Tr*rar  ^  «ir  *r  »r  »i*  n*  *r  n*  ^  *?  •v*  *v*  *r*  n*  TTTTVT^Tr^TT^TT^'T'i'TV'rTT'rTTTT'rTrv'p'P'r5?  I*3!*  / 

7,^  *,»  *,»  *,*  ^j*  *,»  *,>  >|»  *»tt  *y*  *|»  *,»  ?j*  *,»■  ?,»  *,»  ^-»  *,»  *-,S  3y%  *,»  7,»  <fy»  j^t  *(■  ?j»  5,»  *i*  ?,*.  *,-.  ?»*  *,*  *,<•  ?,»  »jS  #,*  3,»  *-,-.  *.,*  sfi  3,»  *-,-.  7,»  *ft»  *%>,  *(»  *,<•  -(S  *(*  «jE  *,»,  *(»  »,-  »,*  ,,%  »,»  *j*  ,(,     / 

/*  */ 

/*   PA3  is  resident  in  local  memory  of  SEC  3,  CLUSTER  A.  */ 
/*  */ 

/*   This  procedure  performs  the  following  operations:    */ 
/*  */ 

/*  1.  Loads  quadratic  eauation  parameters  A,E,C,D.  */ 

/#  2.  Reads  sensor  A  observation  vectors  from  disk.  */ 

/*  3.  Computes  the  Conditional  LLR  {  LAMBDA_AP_X  )  */ 

/*         to  send  to  sensor  3  for  further  computation.  */ 

/*  4.  Submits  a  reouest  into  the  ERH  queue  to  send  */ 

/*         the  CLLR  statistic  to  sensor  R.  */ 

/*  5.  Advances  eventcount  A1FVC  to  signal  sensor  3  */ 

/*         that  its  awaited  statistic  is  available.  */ 

/*  */ 

'i**r  '."-I*'.-  -v  -i*7?  ~  ')»i-  '>  "vr-i*  'i*  *.*  'i*  *i-  *.»  -i*  *r  »r  *r*3B**«*  *•*  '»**'*  'i*7**  V  "t"  i*  *r  v    «*  *'i»*r  *i*^  "i**^  «r»  t*  '."-i*  -.*  '.".-  *.*  -.'-t-  'ic  *f  *r  *•»  *.-  / 

/*•*  ^*  ».',  -l,  ..'-  *»#  .l.  »-*  »(,•  »,i^  »f*  «.«#  •/,  .  ,  fci^  »u  «■<  »t^  »t*  ,o  *'»  %,<•»<*  %t-  s»*  *V  *L.  *u  *v  Oy>%i#  »->*  >»v  *•*  *V  •**  *■'*  ***  *'*  »V  V*  *'*  ***  *';  5**  *(•*  2*C  V*  V"  *■'*  *'*  **f  »-)*  *'•*  ''■*  ***  *'*  V*     / 
-,■»  »!-  ^t«  *,%  •■,»  -(*  ,,»  *,*  *,»  ,r  *,»  ,(,  *4-  ,,»  *j>  *(,  ,,^  V|«  *,»  j^-.  ^,,  *,,  ,4^  *^  ,(S  ,,*.  ,^  -T-  <v  ',-  -?  i*  *?  o^  *r  *r  *»■*  *r  *•"*  "i"  *•*  V  *>      »     •  *•*   •     >    *»  *•*  ri*  *•   *•■"  '<■"  *•   *>*  ***  *i*  / 

RA3:    PROCEDURE; 

^INCLUDE  'SYSDRR.RLI '; 
^REPLACE 

PA    RY  '9000 '34,  /*  PI  IS  SET  TO  THIS  VALUE  */ 

PB    3Y  '9CC0'34,  /*  ^2  IS  SET  TO  THIS  V.»LUF  */ 

ER"P_BLCCK_LENC-TlT  BY    20,/*  USED  TO  CONTROL  */ 

ERT,_3L0CK_LEN'G-TH_^1  3Y    19,/*  Ei3   SIZE        */ 

TRUE  BY    '1'B, 

FALSE  BY    '0'B, 

ONE  EY    '0001 '34; 

DECLARE 

/  »■.*  «»  K-*  -v  o*  >>*  -•*  *.-  o,  ..-,.  »i,  o»  %ju  *i*  «.'*  *•-  *»-  »■-  v-  »**  *■*  *•-  V*  *»»  *'-  »•*  *■«•  *J*  >V  •**  *'-  ***  **'*  >''  *fV  *''  »V  ***  **c  •**-  *•*  *•*  ••'-  »V  ***  *'■•  *J*  *'-  *'*  V-  -'•*  »'-  *■-  ■**-    / 
/  t*  '1"  *i*  1*  t  *^»  -1*  *,*  -r  *i*  *i-  *i*  i»  »»-  "i?  ».»  o   *»*  n*  *»*  t  I*  *r  **»*  •¥*  nr  T1  *»*  *r  t  ***  1*  *r  V  'rrT  *4*  ir  *r  'p  1*  *v  *i"  *r  t»  *i-  *v  if  3r  1*  *i-  *r*  *r  / 

/:::     PARAEILE  CONTAINS  THE  FOLLOWING  PARAMETERS       */ 
/#  */ 

/*  1.  VftTRIX/VECTOR  DIMINSIOV.  */ 

/*  2.  r  DIAGONAL  ELEMENTS  CE  THE  MATRIX-AP.  */ 

/*  3.  COL  RY  COL  ELEMENTS  BELOW  DIAGONAL  OF  */ 

/*  MATRIX-AP.  */ 

/*  4.  D  ELEMENTS  CF  '/ECTC^-BR.  */ 

/*  5.  SCALAR-CP.  */ 

/*  */ 

/*     DAT/ FILE  CONTAINS  THE  FOLLOWING  VALUES  ■■'- / 

/*  */ 

/*  1.  D-ELEMFNT  X-VECTOFS.  */ 

/1.  :;</ 

/  *i*  V  *r  ^*  1*  '1*  *i*  1*  ^*  '»:  *r  -i"  'l*  *.-  V  3?  '<*  'r  *•*  *i'  *•*  *p  *i*  V  '1*  5<*  *  X*  't»  *ic  *!*  *i*  *i*  -i*  *i»  *r  *i-  •*»*  *i*  -I"  -r  *i*  -1*  -1*  *I*  V  »!*  *.*  ^r  -p  *i"  *I*  *!*  *I»  / 

(PAR API LE, DAT API LE)  FILE, 

EOF  BIT(l)  STATIC  I  NIT ( FALSE )  . 


64 


(I,J,D,N)    FIXED, 

( A? (528) ,B?(32) ,  CP,T1,X(32))    FLOAT, 


/ 
/* 

/* 
/* 

/* 

/* 
/* 
/* 
/* 

/ 


.•»»»*  .  -».'-  *>«  +»* 


».'-  «*«  -1'  «**  »'.<■  -•-  -'-  «.'-  %'-  «J«  »»#  »**  «jU  JU  JL  - •*  V*  »'■»  -1-  ***  -'*  *''  *0  -''  V'  o-  *'-  »'■•  •>'*  *•-  *'-  -ju  0-  u*  ~'-  V  V*  -<-  "t-  -'-  «J*  - '-  »'*  »'•*  - '-  *■-  •>'« 
*i*  *v»  "i"  *»-  'r  *i*  *p  *•!*  *p  'i*  't1*  n*  t*  'ts  ^"  n*  *P  "i*  *i*  •t*  *i*  'i"  **"•  *r*  n*  *i*  "•*  n*  *r  *»*  *r*  *t»  *r  *i*  t*  *r  ■***  *r  *«*  *P  "»*  "<*  *«"  *i*  *»*  "IT  *i* 

INDEX    VARIABLES    AND    CONSTANTS    USED    F0P 

INDEXING    IN    THE    ERB    (ERB_INDEX) 
SEQUENCING   &    C0NTR0L(    II,JJ,K    ) 
IDENTIFYING    DATA    TRANSFER (DATA_TYPE  ) 
IDENTIFYING    OPPOSITE    CLUSTER    ADDRESS 


V    -J  ■   mff  »»,  Jf   .1-   »»- 


JU   -'.  *,t,  .  i,  .-_   .1,  j     _<„  „<,»»,    JL  ^t,  kt,  ^  *J~*L*  JU  .1*^   *i»V-  «U  -J*  -•'•JU  V-  *•-  »'»  <JL#  »'**l#  -'-  -t^  <J«*J«  *'-  »'*  *A»  -J*  ^'-  •.<«  «L> 

V  »r  *<"■  "p  *r  "i-  *r  *«"  *p  *•*  *r  't-  *r  ***  *v  *»*  nr  t*  *r»  n**k*  *«v  *r*  *.-  *»**  v  Hi*  *•*  •*»*  ' ■*  *<*  *P  '*"*  *<*  *r*  "<*  *»-  *¥■  i*  t*  "»%  *r 


■i*  *,*  -j.  n»  -, 


:*/ 
*/ 
*/ 
*/ 
*/ 

*/ 
«/ 
*/ 

*/ 


EPB    INDEX  FIXED, 

(II^JJ)  BIT(16), 

K  BIT(16)    STATIC    IN IT (  '0003  '34) , 

DATA_TYPE  BIT(8)      STATIC    INIT( '01 'B4) , 

CLUSTER    ADDRESS  ?IT(16)    STATIC    INIT  ( '0002 'P4  ,' , 


/* 
/* 
/* 

/* 


■  mJL, »>  »i- ^>-  -i,  JU  »u  «f*  gtg  «:,  ;u  "''jicsh  **i  *Jt*»t;  -'-  v*  •>'«  -.**V;  jfe  -';  "'*  -'- 


POINTERS    ARE    USED    IN    THE    FOLLOWING    MANNE5 

PI    SFT    TO    P{    TO    BE    ADDED    TO   SEGMENT    ADDR    0800 
P2    SFT    TO    PB    TO    BF    ADDED    TO    SEGMENT    ADDR   2600 

t*  *i»  *i*  *r  *t*  •?  *■*  *r  i*  *t^  5|*  *i*  Si"  S^i  ^J  5,t  S,C  Sr  i_C  ip  *,C  "^  ','*c  'fi  ^  *?  *i*  *r  •»*  *i*  »i*  '■*  *r  "i*  *n  *»*  "i*  *i*  *i*  *^  *i-  *»*  S,I  *■,?  5^  »,*  5y»  5,J  ! 

(?1,?2)    POINTER,    . 


*/ 
*/ 

*'/ 
*/ 


/** 

/* 
/* 
/* 

/* 
/* 

/* 

/* 

/* 
/* 
/* 
/* 

/-; 


7! :,:  :;c : :  :|: :,;  -^  -i  :|c :;:  -Jf. :;:  :;<  ;;x  5;: 


TFE   ETHERNET    REQUEST    BLOCK    (F?B) 

ETFEPNFT    REQUEST    PACKET    (ER?)    STRUCTURE 

IS    USED    IN    TE^    FOLLOWING    MANNER 

COMMAND    =    1  FOR    DATA    TRANSFER    OVER    E-MET 

TYPE  (NOT   USED    BY    THIS    PROCEDURE) 

VALUE  (NOT    USED    BY    THIS    PROCEDURE) 

REMOTE    ADDR  =    CLUSTER    A-DD?FS5    OF    DESTINATION 


;';  sis :';  ;'c:';  ;;; :!: ;!;  3,: :!; ;!: 


1    EP"B(0:ERB_BLOCK_LENGTE_M1)    ^SED    (PI), 
2    COMMAND  EIT(8), 

2    TYPE  BIT{8) , 

2    VALUE  BIT (IP) . 

2    REMOTE    ADDR         BIT(16) , 


%  / 

*/ 
*/ 

*/ 


*/ 

*/ 

*/ 
*/ 
*/ 
*/ 

*/ 
:*/ 
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/***  ^V  *V  *V  »*•  ^**^*  V*V*  *'*  V"  ***  *-*■*  **•  V*  %>V  V*  ■**  S1*  *A#*io%Jto  »J.  *.•.*  *Jo  vV  t**  •**  Vtf  ******  »•>  *<o  *j-  *lo  -,'-  »•*  *JL*  *V  ***  *V  **"■*  ■H*  ^*"  V*  •**  *■'*'  »•*"  «•**  »t»y»  *V  ***  +**     / 
*l*  *p  -y.  #p  *(*  of*  op  rfp  op  op  o,*  *p  »j*  op  >p  of*  *p  *p  *f*  *f»  *>p  op  op  op  *p  oft  op    -p  op   of*  op  oj*>  op  op  *^~   ,,-  -ys  ^^  op  op  *|*  *T*  *l»  *(*  *I*  *(•  «■(*  *l*  *V  *jp  ***  *J*  *f*  *¥*    / 

/*  */ 

/*      BASE    LAMBDA _a?_X      AT    P2    =    PB    (03TSET    ADD    TO    DATA  */ 

/*  SEGMENT    =    0800    )  */ 

/*  */ 

/*JU  *'o  vu.  *'o  %«o  *A»  *V  *V  *V  *■*"  V  •>*  «J-  *V  *■**  V*  %.'*  u  *  Vo  »V  v**  •**  *.**  »•«»  *V  -«»  *V  %'*  V*  *V  V*  V"  *V  V-  *V  *t*  s1*  *•»  V*  V*  *■**  V*  ■»**  »**  V"  ***  ^—  *•*  V?  »A*  *'*  *'*  ^*  V*  / 
^p  *J»  #p  *p  Of*  *p  *p  *p  Of*  Op  0|*  *y»  *(i.  *p   .-,»  >p  *,«  ^p  op  *]*.  Op  Op  «y*  Of*  »p  Of*  Of*.  #p  Op  ^f*  Of*  rfp  Of*  *,»  0|S,  op  J,*  Of*  *p  Op  Of*  7p  Of*  Of*  >p  O,*  Op  Of*  ?|*i  »p  Oj*  0(*  «p  Op   / 

LAMED A_AP_X    FLOAT    BASED (P2) J 

/*   SET    POINTERS    TO    VALUES    INDICATED    IN    REPLACE      ABOVE  */ 
UNSPEC(Pl)    =   pa; 
UNSPEC(P2)    =   pb; 

/***  *io  **»  ttf  *io  *•*  yo  »'-  »io  v*  V*  v^  *V  »*o  »*o  »'o  «,'o  »y  -jo  »'o  »'o  *»  « v  "»•*  •'*  Vc  *V  »*-  *»•*  »A*  *"  V*  ***  ***  ***  •***  V*  ***  •*•  *V  *■'*  ***  »'*  •>*  V*  •'*  *•*  *'*  ***  »'*  ■***  »*»  ***  *•*     / 
#]f*  o,»  *|»  ^f*  oj6"   *|*  ^"»    *|»  rt*  ^|*  ^t*  Of*  o(*  0|»  o(*  o,*   Of*  o,*  of*  #!*  Of*  o^*  ofV  J^v  o(*    7|*,0|*i  0|*  of*  J|«  »,s  J(*  o,*  of*  o(*  of*  -,-■   oj*  of*  Of*  o,*  o(*  op  o(*  ?,*  o,*  *|*  op  o,*  op  o,*  o(»  o(*   op      / 

/*  */ 

/*  INPUT    PARAMETERS    FROM    DISK    FILE  */ 

/*  MATRIX    &    VECTOR    DIMENSION     (D    =    INTEGER)  */ 

/*  */ 

/*  CALCULATE    N'    =   #   OF    MATRIX    ELEMENTS    TO    INPUT  */ 

/*  */ 

/*  MATRIX-A?    (SYMMETRIC)  '';:/ 

/*  DIAGONAL         ELEMENTS         FIRST         (#    =   D)  */ 

/*  COLUMNS    BELOW    DIAGONAL    NEXT         (#    =    N-L)  */ 

/*  */ 

/*  VECTOR-BP    (D    ELEMENTS)  #/ 

/*  .  */ 

/*  SCAIAP-CP    (1    NUMBER)  */ 

/*  */ 

OPEN    FILE(PARAFILE)    STREAM    INPUT; 
GET    FILE(PARAFILE)    LIST     [D)J 
N    =    (  T    *    D)+D)/2J 

DO    1=1    TO    n; 

get  filf(parafile)  list  (ap(i)); 
ent; 

DO    1=1    TO    DJ 

get  file (para  file)  list  ( bp ( i  )  )  ; 
end; 

get  file(parafile)  list  (cp): 

PUT    Sri^>    LTST    '.''DIMENSION    =',D)J 
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/*  */ 

/*  INPUT    AND    PROCESS    X-VECTCRS  */ 

/*  */ 

/"■'c  V'  *•■*  ->*  *■**  •**  rfi  -*'»  -1-  •>'*  *>'*  V'  *■'*  *'»  *'*  •-'*  »*-***  -.'+  »'»  ■,'"  »r*  -J-  »V  V-  V-  tV  «•**  *■*  -'-  »*•*  ■>'>  -'*-'-  «■.'-  -'-  *'-  J*>  *J~  ^'-  »'»  '-  -"-  «.'..  -'-  *''  -'-  «■'>  ***  -'-  -'*  s'>  »0  *»-  / 
n*  *>,■*  *i*t  »r  *r  t*  *.%  »r  *»*  ***  nr  *.-  •*»»  '."•'I-  '.-"i*  *»-  -.-  V  ***  ',.  'p  ;,.  <v*^  -I*  -r  i*  -r*  '.*  *v*i*  *r  *r  *r>  nr^  «v  *r»  'i-'t-  3i-  ^**p *i»  *v-i*  »r»  '  *  *.*  T  nr  / 

ON    ENDFILE(DATAFILE)    EOF   =    TPUE? 
OPEN    FILE(DATAFILE)    STREAM    INPUT? 
DO    WHILE (EOF   =   FALSE)? 
CALL    AtoAIT(A2E7C,K) ? 
PUT    SKIP (2); 
DO    1=1   TO   d; 

GET    FILE(DATAFILE)    LIST    (X(I))? 
PUT    SKI?    LIST( 'X  {',!,')    =',X(I))? 

END? 
/*    STORE    (X-TRANS)*(AP-M*TRIX)*(X)    IN    LAMBDA_A?_X  */ 

LAMBDA_A?_X    -   0» 
DO    J=l    TO    D-li 

DC  i=j+i  to  r; 

LAMBDA_AP_X    =    LAMBDA    AP_X+(  AP(  I+J+l  )*X(  I)*X(  J  )  )? 

END? 
END? 

Tl    =    ?? 

DO    1=1   TO   d; 

Tl    =    Tl    +    (A? (I )*X(I )*X(I))? 

END? 

LAMPDA_AP_X    =    (2*LAM?DA_AP_X)    +    Tl? 

/*    ADD    LAMBDA_A?_X    TO    (B?-VSCT0R)*(X)    &    STORE 

DC    1=1    TO    D? 

LAMBBA_A?_X    =    LAMBPA_AP_X    +    (BP(I)    *   X ( I  )  )  ? 

END? 

/*    ADD    L&MBDA_AP_X    TO    CP    S,    STORE    IN    LAMBDA_A?_X  */ 

LAMBDA    AP    X    =    LAMBDA    AP    X    +    CP? 
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/*V  °~  *-*-  +*~  ■*>*  *t+  V*  »'"l'y'  -»«•  «-•»  -J-  ***  «J*  *^-  ***  »■'-  -J-  *■' '  V-  V*  ■*•-•  v;"  ° *  -L- **»  <^«  -1*  **•  -J-  -J*  •.' '  »*.»  -"-  *J-  ***  «>**  -v  ^ .  »',  J*  ^y  *Jjl  -1-  *"-  -**  -1-  -^-  V-  -'-  -'-  -—  ^-  / 
»|W  *y»  <■,■»  »>p.  »|-»  ^|»  J,»  ^|»  »■)■»  >j-.  »-,-.  »,-*  *,%  *■(>  m  »,»  *-,■»  *■,-»  *-j~  »■,■»  **j-.  ai|«  >(-.  >,<.  *Y»  t*"  T*  *K*  *l*  *|*  *I*  *|*  *P  *"n  *T*  *T*  ^f*  f*  T*  HP  *■*  *l*  ^P  **T*  *l*  *1""  'P  *l*  HP  •!■  'P  HP  HP  *(*  / 

/*  */ 

/*  SET    A    TICKET    TO    ENABLE    A    WHITE   TO    THE    ERB  */ 

/*  */ 

*r  h>  -p  *p  nr  -i*  nr  t>  *»•*  *•**  hp  't*  -p  i*  V  hp  nr  *•"  *p  hp  *i*  nr  *p  *p  V  *v  ***  *<*  i*  *»*  *»*  "*  *<*  ***  *»*  "<*  ***  *»*  ***  hp  *p  *v  hp  *p  hp  hp  hp  *p  *r  hP  *p  *p  hp  *p  / 

II    =    TICKET (ERB_¥HITE_PEOUEST)i 

/*    II    NOW    HAS    T^E    VALUE    OF   THE   TICKET    RETURNED  */ 

JJ    =    BEAD(ERBJfRITE); 

/*  jj  now  has  the  value  of  erb_write  */ 

do  whileuj  <  ii  ); 

j  j  =  read ( ere _write) j 
end; 
/*  ie  ethernet  request  block  (erb)  is  full-busy  wait    */ 
j j  =  read(erb_read); 
do  weile((ii  -  jj)  >=  erb_block_len(jte); 

j j  =  read(erp_read ); 
end; 

/-■-    JU    «l«  «l«    *'-    »'-    J<    (U   >J«    tvvl/  «l^   tly    •<#  «^>  ^    x'«  *>!«  V  -  •*#   *'*    ^'-   «t#   »•--  V'     -<«  «A*>    *•*   •*•-  ~f  *V    '•'"   »'■'  «*•   *■*    «.  -   «U  •**  v'-    *A»   «<#    fcl-  kU    Mf^    «.'-   »'*   Od    v'«  »'*    -<*    -•-  O.    v«   «'-       / 
*r  f  *i •  nr  *t»  *r  "Y"  ^r '.-tt  t  *i*  *r  n*  *ri*  n"***  *m*t*  »r  *i*o-  *i-or  *i*  "V*  *c*  f  t*  *r  *■*  ~r  i-  i*  yi*  *\-  t*  i"**!*  t*  i*  *r  *p  n*  t»  *i~  ->'  n-  "i"  *r  / 

/*  */ 

/*    WRITE    TO    EP.3    WHEN    A    SLOT    IS    OPEN  */ 

/*   CO^MMID    =    1    EOR    DATA    TO    BE    TRANSPERED  */ 

/*    REMOTE_ADD?    -    DESTINATION    CLUSTER    ADDRESS  */ 

/*  */ 

/  'i-  *f  *i- *!"•  T*  -X* *v  -; -  t  "v-  *r  ^>~  ri*  *r  *i-  ^r  T"r  *^%  *»*  "i*  *r*  *r*  *i*  t*  t'tt'pt^tttt  *•* n*  *r  nr  *p  *i*  *•"* *P  ^<*  *»*  *r  *■"  *r  t*  t  *i*  t*  *»■■  t*  / 

erb_index  =  mod(ii,erb_block:_length); 

ERB(ERB_INDEX) .COMMAND    -    DATA_TYPE? 

ERB'E^Q_INDEX)  .RE^C«TE_ADDR    -    CLUSTER_ADDRESS  ? 

/»>*  j*  mfg  *'»  y»  v*  »*»  »**  »•*  v»  *v  v*  »^^  »'*  »*-  V*  »■«•  »•*  **#  »■»  »**  *•#  «!**  »^*  «w  v«**«  v*  »■#  »i*  v*  *■■•*  »**  *j*  v*  ***  v-  > *  v»  »^*  ***  *^  *■'*  ***  »•*  »**  v*  *•#  •■"*  ***  *v  *''•  »'*  ■*'*  / 
',*  o*  t*  •>*  JS  J'~  *»"  *i"  i*  *>•  *f*  *i*  "IP  ')"  'i-  nr*  'i*  *<*  't6  *i*  -V  v  "i*  *r  *r  »r*r*  nr  nr  *t*  5i*  *«"*  *t*  *•'•  *i»  *tt  *r  V *r*  *r  t*  t  *r"r  *r  ^o  nr  -r*  *r*  *r  t  *v  *t-  "r  / 

/*  */ 

/*  NOTIFY    MC0PTEX   THAT    ERP    WRITE    IS    COMPLETE  */ 

/*  */ 

C*LL    »DV«NCE(ERB    WRITE); 
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/*  */ 

/*  AN  ETHERNET  REQUEST  PACKET  (ER?)  IS  NOW  SETUP  */ 
/*  IN  THE  ETHERNET  REQUEST  BLOCK  'ERE).  THIS  WILL  */ 
/*  SIGNAL  THE  DRIVER  PROCEDURE  CN  BOARD  1  TO  FETCH  */ 
/*  THE  DAT*  STORED  IN  COMMON  MEMORY  ( L *M3D A_ A P_X )  AT  */ 
/*  ADDRESS   0800:8CC0-0800:8CC3  &  MOVE  IT  TO  */ 

/*  ADDRESS  0800:80PA-0900:80DD  ( TRANS  MI T_DATA_3L0CK )  */ 
/*  4LSO  IN  COMMON  MEMORY  TO  BE  PACKETIZED  AND  SENT  TO  */ 
/*  THE  RECEIVE_DATA_BLOCK  (RDB)  OE  THE  OTHER  CLUSTER  */ 
/*  ADDRESS  0S00i367C-0800:867F  WHERE  IT  IS  MOVED  TO  */ 
/*  ADDPFSS  08?0:6DD0-0800-SDD3  IN  THE  OTHER  CLUSTERS  */ 
/*  COMMON  MEMORY  (LAMBDA  AP  X).  */ 

/*  "   "  *'/ 

»,»  *^  ^j»  +^+   ^  J,«  *n-  #-,*  },-.   ?,»  7t%  *,-»  »y.  *!*>  *•,»  *y»  *-,*;  *[»  *|%  Jy.  *jt  J,*  ?\»  ?i*  #ya  »^  #y»  «-,»  *p  *(»  *,*  #\»  *,»  *4-»  *(»  *,*  *|»  *|»  *k»  *,-  *|»  rf[*  *(%  *,%-  *!»  *|*  *j*  *i*  *f»  *\»  *(»  *,-  »,*  *|-i  / 

•v  ***  *i*  v  ***  *y*  *p  *i*  *i*  **■  *i*  *i*  '•,'  *p  *<■*  *v*  'i*  'i"  ***  *v*  *»■*  ***  *v*  'i*  *i*  *i*  *i*  *p  *i*  t  t*  *i~*  *i"  n"  "i*  nr*  *i*  ri*  'p  *p  *i*  *t*  *i*  '»*■  »p  or*  *c  *r*  *p  *p  rp  *!"•  'i^  *p  / 

/*  */ 

/*  NOTIFY  OTHEP  CLUSTER  THAT  DATA  IS  READY  */ 
/*  */ 

/»V  *•*  v*^  v'»  J*  »'*  J*  »*»  Jt«  »•*  *•<  -**  *»*  »'-  »V  »•>  »'>  •.**  *•*  »'*  V#  »•*  ***  V*  ^^  «.,*»,.»  *'^  h<*  t'*  »•*  «.'>  •£*  »■*  »'*  *'*  »J*  -'*  *'f  ■>'*  s'*  "J-  U*  »'*  **-  »'■-  *'-  -'-  \'»  *■'*  ***  »'-  -*-  -V  / 
-t*  *.*  -.-  *i"  'i-  'i*  v  *.»  *■*  ',»  *.*  "»*  -i  '.-  *.*  *,»  '."  *.'•  *i*  *•*  *i%  'r  'i*  'r  *r  "V*P  'i*  't"  ""  n*  7r  -i-  "«,"C*  *i*  n*  'i*is  *i-  Ji*  '4*  t*  l*  *i*  *p  »p  i*  n*  *i*  -i"  *v*  *.*  *r  / 

CALL  iDVANCE( AlEVC); 

k  =  add2eit16(k,0ne); 
end;       /*  end  ce  dc  while  (eof  =  false)  loop  */ 
put  st-;i?(3)  listCend  of  input  data'); 

END    PA3; 

/**«  tJt  J*  *>+  »a*  V*  *■*  *'*  *»*  »■*  <**  ,l»  *>«  «A*  «u  mU  wl.  «y  o*.  -■*  «(#  *«*  -i*  »•*  »i*  y  *  v*  »■>  v>  V*  W  V»  V*  »**  *'*  *l>  *^»  *V  »'*  *•*  •»•*  V*  Vtf  V*  *'*  ',k,**  *?£  **»  **»  *■'*  *'*•  *'"  V*  *fV  "*'*  *''  **f  *?€     / 
*f*  *p    >l^  *^  »p  J(»  *p.  *!»   r  p.   *■,«  J,i    >,»  »,»   i-f-    *r«   » f*   *-,»  ?{&  ?,*   *,^    #  ,••  *,»  *(i   ^|i  »-^  ^|t  J,»   *,•>.  *|»    ^(*  *^   J,»  ^i»   »,»  ^*  *J*  »p  *f<  »|»  *p  #(•   ^»  ^|fc   ^|"  »|»  *|*  *i*  #!"»   *|»  *t»  *j^   *i»  rf|»   *|^  *|»  *,-    'i*   *,*      / 

/O*  •**  *'*  V*  *i*  •»*  %'*  »'*  ***  V*  */*  v'^  fcJ*  t  *  »o  o*  o«  J*  »•*  O*  x»»  •**  -  ■.*  o-  ^i«  ^o  &■>  *}*  *•#  ^».»y  *■''  V*  »V  »**  ***  »'*,  "-1*  ^V  *'f  ^*f  »V  %**  *'*  ***  »'*  V?  ^y  *'*  *'»  **f  »**  ■*■'*  »**  "''■  ^f  '",*  ^*"     / 
*r*  *i*  *r  J>'-  *v  *T  *n  'f  n>  ?i*  *P  *«*  'i"  *<x  *r*  "f  *r  *i-  *i    *r-  'r  *\-  *r  *i*"p  *r  *r  'f  *i"  't**p  *r  *p  *r  *»*  *t*  *r  <r  *r  Is  ^r*  *i*  ?f  *r  i-  *r  t  *i*  *r  »r  'i1*  *i»  *r  *t%  -i-  *•*•  i"  J»*   / 

/*  */ 

/*  ^BP  is  resident  in  local  memory  of  SBC  2,  CLUSTE-  3.  */ 

/*  */ 

/::'  This  procedure  performs  the  following  operations:    */ 


/ 


/* 

/•"  1.  Loads  Quadratic  eauation  parameters  A,B,C,D. 

/*  2.  Peals  sensor  B  observation  vectors  from  disi.  */ 

/*  3.  Ccmpites  LL?  f  LAMBDA_B_Y  )  for  local  use.  */ 

/*  4.  Computes  (  LAMBDA_B_Y  +  LAMBDA_A?_X  )  the  */ 

/*  sum  of  the  local  and  remote  sensor  LLR's.  */ 

/*  5.  Compares  the  result  to  the  decision  threshold  */ 

/*         and  displays  the  final  result  and  decision.  */ 

/*  6.  Performs  steps  2-5  for  each  input  vector.  */ 

/*  */ 

/  ••»  *i-  ■»»*  »'-  »•-  j>  *i*  ou  »i-  »•-  jl.  »i-  vU  *.».  »i-  »»*  »»-  *i*  *•*  J-  *'*  *»*  ^-  ■*■*  *»*  *i*  Vf  «J»  »<-  •'f  *•*  ou  v-  *v  VJ*  *■-  —  *  **»  »y  ■>»*  -V  -v  ******  yj2  Vf  *'*  v*  *'■»  *''  ^^  ■»>  *J-  -J*  *•#•»*  *u  -|-    / 
/  -.-  *r  t  '.*  "i-  *»-  '\*t  *t»  *i*  -r  -r  t  *.*  *r  'i*  •*■  *:*  *r  -r  '  *  *\"  *•*  *.*  V  *'•  *«*  *i»*i-  n*  i-  *r  *r  ^n*  n»  'i-'r  *r  '»*  -r  i*  i»  »«-  ^  nr*  *i*  nr  *r  *r  n*  v  v  *r  *i* *i*  *¥*  f  / 

/   *(^  'i*    *,*  »|"  *,-   *,■•   ?f  «%»   7,»  *|-   "■(»  »(»  *,*  *,•■  *,*  »,«•  *,■«•  ?,»  ^»  ri»    *i*  *(>  *i"«  *,*  *,v  J(*  *,*  >(«  *,^    *^>.#,»   *t»  #,»  *,*  J,»  Jj*  #,-  ?,*■   ?,»  *,*•  *,»  *,»   *t*      '         I         I     *l         P       i     ^         '         t         I  '         ;         i         '         •        / 
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PB2:    PROCEDURE! 

%INCLUDE    'SYSDEF.PLI'J 
%REPLACE 

PC         BY    'SDD0'B4,  /*    P3    IS    SET    TO    THIS    VALUE    */ 

TRUE  BY         'l'B, 

FALSE  BY         '0'B, 

ONE  BY         '000l'B4; 


DECLARE 

/** 

v1*  ■J*-  *A*  ■»■"  »V  *'*  *-'"■  »'«■  •*'*  *■''  * 

n*  *r  i*  n-  *r  *i-  »r  ***  n*  *»■*  • 

t*  -j.  «v  ju  -'-  »■-  Jb  j,nL.vU  j«JUJf  .  >„•,  „i,  j,  O'V'  "'*  *V*JU  **-  «.«#y»y*o*  »»»  y*  y~«J>yuy*  -'-  »'■*  *'■*  *■*  *'••  -•• 

^»  *|»  »,^  »■,»  *t»  *|*  *(*  ^i1*  ^f»  *|^  *f»  ^*  *|*  ',*  *|*  *,»  ^*  *,v  *)*  *^*  *f»  *"!•  ^*  *,»  *^  *t*  *^  *|*  ^*  *i»  *i^  *,"■  *tf»  >|»  *|-*  *^  *|-»  "]»  *t' 

:*#*/ 

/* 

PAP.FILE 

CONTAINS    TEE   FOLLOWING    PARAMETERS 

*/ 

/* 

*/ 

/* 

1. 

MATRIX/VECTOR    DIMENSION. 

*/ 

/* 

2. 

D    DIAGONAL    ELEMENTS    OF    THE    MATRIX-A. 

*/ 

/* 

3. 

COL    PY    COL    ELEMENTS    PELOW    DIAGONAL    OF 

*/ 

/* 

MATRIX-A. 

*/ 

/* 

4. 

D   ELEMENTS    OF    VECTOF-B . 

*/ 

/* 

o  • 

SCALAR-C. 

*/ 

/* 

6. 

THRESHOLD. 

*/ 

/* 

*/ 

/* 

DATFILE 

CONTAINS    THE    FOLLOWING    VALUES 

*/ 

/a. 
/-r 

*/ 

/* 

1. 

D-ELEMENT    Y-VECTCRS . 

*/ 

/* 

*/ 

/** 

«.'*  »'*  «J*  ■»'»  y^r  «Jy»  y*  »'*  »'*  *'*  a 

-i*  *r*  *r  - 1*  *r*  -v  nr  *o  *e  *r  * 

■,  j*  <J*y*  *X»  y-  *.***l*  «V  ***  ***  ***  -''  -***•**  -'*  *■*+  *■'-  "J-  v1'  «.»*»»*  *V  -'*  «-•-  *'#%!#  »•*  *V  *'*  -'-  »'»  *'■*  »■'*  ***  ***%■*  -1-  *■' 

(P'R^ILE,D"TFILE)    FILE, 
EOF   BIT(l)    STATIC    INIT(FALSE), 
(I, J.D.N)    FIXED, 
(A(529) ,B(32),C,T2,Y(32) ,  THRESH ,LAMBDA_E_Y )    FLC*T, 
K    PIT(16)    STATIC    INIT( '0000'P4) , 

/»'-  .-.  */>«',.  ,i-  o,  »v  .v**'  %»-■  y>  y>  y-  »■'  ■>.'-  y-  »'*  *•*  V*  %M  *:-*  y*  »**  V*  *■•*  »*--.'*  *V  V'  »•***<■  y-  -J*  yV*fe  »»*  y»  *'«y«  o-  JU  *'-  *•*  ->'  -J*  <Jm  -J*  -.'»  o,.  «b  *'-  ,'-  v*  »'-     / 
*.%  v  *i**t*  i»  *r  *i*  *.»  *i".x  ?i*  *»*  '»*  *i-"  'i**.*  *r  *r  *•>  *fi  *^*v*  -.*  *»*  'i*  *i*i*  'i*  n*  "i*«v  Ji*  *■*  *r  *»■•  i*  ?i*  *r  i»  t*  *»*  *i*  •■,'*  -r  'i*  *i*  i-  *r  *i*  -i*  *.*  *r  «nr  *•*  / 

/*  */ 

/*      ?3    SET    TO    PC    TO    Pi    ADDED    TO    SEGMENT    ADDR    0000  */ 

/*  V 

P3    POINTER, 

/*  »/ 

/*      EASE    LAMBDA_A?_X      AT    P3    =    PC     'OFFSET    ADD    TO    D»T5       */ 

/*  SEGMENT    =    2800    )         */ 

/#  */ 

/v**  y»  y^  •■**  *•*  *•*•■  y*  y*  ***  o*  ^>^  »v  »■*  »^»  y«-  o-  -u>  *i,  -irf  »■*  j^  yo  •»<*  «i.  ***  «o  *j^  *■.*  v*  ou  y*  ^»  «.•*  ^*  ^'*  ***  y*  *t*  >t*  y»  - v  *■*  ***  **#  y*  »**  «^*  y*  *•*  ^**  y#  v*  *■*  ***  / 
-T*  V  ^-  or  *i*  *r  ?i-  -i  *  -^,i  i*  i5-  *f  'i-*  'r  TYVi'TrvrTTTTTTTT  A*  -v  *(~  *»*■  t*  -i*  *p'rTVT'i*  'f  «v  *r  v  •**  '**  *r  •V-  *.••  *r»  *r*  *.*  / 

LAMBDA_A?_X    FLOAT    BASED (P3); 
/*    SET    POINTERS    TO    VALUES    INDICATED    IN    REPLACE      ABOVE    */ 
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UNSPSC(P3)    =  pc; 

nr  *<*  *r  n*  *p  i*  *p  J--  *(*  *t*  n*  "f  *i*  *i*  *»*  *i*  nr  *r  *p  n*  *i*  n*  *c  n*  t*  *i*  hp  1*  ^*  *t**  *i*  *i*  n*  *r  ?r»  *»*  *r  t*  *r  *v*  -i*  *i*  *i*  *r  *i*  *i*  **r»  ■*»"  *t*  *r»  *r*  *r  ***  *v*  / 

/*  #/ 

/*  INPUT    PARAMETERS    FROM    DISK   FILE                                      */ 

/*  */ 

/*  MATRIX   &    VECTOR    DIMENSION    (D    =    INTEGER)                        */ 

/*  */ 

/*  CALCULATE    N    =    #   OF   MATRIX    ELEMENTS    TO    INPUT  */ 

/*  */ 

/*  MATRIX-A       (SYMMETRIC)  */ 

/*  */ 

/*  DIAGONAL         ELEMENTS         FIRST         (#   =   E)  */ 

/*  COLUMNS    BELOW    DIAGONAL    NEXT         (#    =    N-D)  */ 

/*  */ 

/*  VECTOR-B       (D    ELEMENTS)  */ 

/*  */ 

/*  SCALAR-C       (1    NUMBER)  */ 

/#  */ 

/*  THRESHOLD    (1    NUMBER)  */ 

/*  */ 

/*a*  *'*  %•-  *>»  ***  *A«  ***  »y  V*  V*  ***  ***  *•*  »•#  V*  V*  *V  V*  *V  *'#  ^*  ***  ***  *•*  •**  ***  *•*  *'*  ***  ***  *V  ***  ***  1**  ^te  ^V  V*  V*  ***  *J*  ***  Vrf  *■*■*  *■'*  ^*  ***  *'*  *•*  *'"■  *  *  »'*  V*  ***  iV   / 
r^   »l»  ^-»  *f<  *^  *|»  rf|p  *|fc  »f»  ^»  irf*   rf^  »4*  *p»  *|^  if*   *|^  rf|*  *,»  »,*  *-f*   «|«  *j»  *if»  *^  +f*  *Y*  .-,»  *■,.  -^  j^*  *p  *-,-  »^*  j^p  r,*   rf,-*  ^,-  »j*  *|*  ^*  #|%  *f»  •■,--  ^,-  *^"»  ^j*  *,»  *j*  -,  .  »,»  J,»  *,■«  >,*  / 

OPEN    FILE(PARFILE)    STREAM    INPUT; 

GET    FILE(PAREILS)    LIST      D)J 
N    =    ( (D    *    D)+D)/2! 

DO    1=1    TO   n; 

GST    FILE(PARFILE)    LIST      A(I)); 

end; 

DO    1=1    TO   d; 

get  eile(parfile)  list   (3(1))? 
end; 

aet  filf.(parfile)  list   (c, thresh); 

put  ski?  list  ('dimension  = '  ,d, 'tfreseole  =', thresh); 

/•^«A>  vy  .i.-  ~l-  ••-*  J-  V'  v*  .v*  >v-   »',  -  -  %U   .'-,',  .'-  ,i-  UU  -'-  -^-  »V^  *a-  •?>  «VVU  *-**  -*--  «M  -'-  v-  »'-*'-  «b  «t>  «■<■  «V«.'»  %t>  *i,  «>•.<>  «h»  *'*  *'-«.•*  »',  *'.  *•-  «.',  *,»>  J,  »<-      / 
-, -  -,-  *?-.  .(■  ~r  i»  *i»  *i*  i*  'i*  *»■*  *i*  '«■  -T"  n*  *v  *(*  *i*  ^"  *f*  ^r  v  '•*  *r  i*  nr nr  ^*  "T"  ***  *r*  i*  f*  ****  *ifc  "*r*  *¥•  *i*  n*  nr  T  *t*  *t*  nr*  T"  *y*  *i*  *»*  *r»  *r*  *r*  *i*  '(*  *\-  / 

/*  */ 

/*  INPUT    AND    PROCESS    Y-VECTCRS  */ 

/*  */ 

ON    ENDFILE(DATFILE)    EOF    =    T?UE; 
OPEN    FILE(DATFILE)    STREAM    INPUT; 
DO    WHILE (EOF    =    FALSE  )J 
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K    =   ADD23IT16(K,0NE) J 

PUT    SKIP(2); 
DO    1=1    TO   d; 

GET    EILE(DATFILE)    LIST    (Y(D); 

PUT    SKIP    LISTCY  {',!>)    =',Y(I))J 

end; 

/*  calc     lamrda_b_y  =  (y-trans)*(a  _matrix)*(y)  */ 

lambda_b_y    =  0. 
DO   J=l   TO   d-i; 
DO   I=J+1   tc  d; 

lambda_b_y    =lambda_b_y  +(   a ( i+j+l )*y( i )*y( j ) ) ; 

end; 
end; 

T2    =    0; 

DO    1=1    TO   d; 

T2    =    T2    +    !    A(I)*Y{I)*Y(I) ) J 

EN  D ; 

LAMBDA_B_Y      =    (2*LAMBDA_B_Y    )    +    T2 ; 

/*    ADD    LAMBDA_B_Y      TO    (    B-VECTCR )  *(  Y  )    S.    STORE  */ 

DO    1=1    TO    D  * 

lam3da_bjt    =  lambda_b_y    +  (  b(i)  *  y  '  i  )  ) ; 
end; 

/*  add  lambda_b_y     to  c     &  store  in  lambda_b_y  */ 

lambda_b_y    =  lambda_b_y      +  c? 

/»'»  O*  -U*  -.'.-  V*  *.'*  »y  ■»  »  ~i*  %'«■  sV  «JU  J>  w-  .1.  sV  *  *  »*L»  v*#  fc#«  -J-»  V-*  *A*  *V  N**  *»'*  *'^  *V  »V  %^*  ***  •**  *^»  »'•  ***  *'*  *V  ***  V?  •**  *'*  *V  V*  *'*  V*  ***"*  "'*  *'-  »V  *V  *'*  "J*  "»'<•  *■'*   / 
'.•*  o**  or  Or  -V  or  *r  *p  of  or  or  or  ov  or  of  of  0-0-  o*  if  or  or  or*  or  *r  or  or  or  or  or  or  o*  *r  op  or  or  of  'i-tt'tttv'p  Of  op  or  or  or  op  or  or  or  / 

/*  */ 

/*    AWAIT    LAMBDA    ",  ?_X    CALCULATED    IN    THE    OTHER    CLUSTER      */ 
/*  "  */ 

*»f»  or  o»or  or  »r  V  *  or-  or  o*  or  or  or  or  o*  o*  or  or  V  or  or  -*r  or  *V  0*1*  '1-  *r>  or  or  o»  op  o*  1*  0*  or  or  or  op  or  of*  or  1*  of  Of  or  o^or  or  or  o*  or  of  / 

C^LL    AWiIT( ftlEVC.K) J 
PUT    SKIP(2)    LIST('LAMIDA_E_Y      =',LAMBDA_B    Y    ); 
PUT    SKIP    LIST  (  'LAMBDA_AP_X    =  '  ,LAM3DA_A?_X  )  J 

/*'»  »'*  ***  »  <•  *'  ■  *'•  V*  *■'*  *  V  ■*''  "■'*  *'*  *'*  ***  *'*■  *'*   >'*  >**  ■*•  **^  V*  "JU  *f+  ^**  *!•  *Jw  **'  *•■•  ***  ^V  v*»  >^  •  *  >*'  ***  «»*<•  V*  »'»  ^**  *■'*  ^**  **#  V*  ^'<*  ***  *^*  ~'*  **»  «J^  » '*  »^*  »**  *'*  *'-     / 
of  Of  *r~  *»*  or  or  *»*  of  of  nr*  or  of  i- v*rv  •'r*  or  of  of  or  of  1*  Of  of  o*  o*  Of  or  or  of  or  o  ■  of  of  or  n*  or  or  of  o*  'rT*>'"i*'r"rT*^T'isi"r"p  / 

/*  ADT    THE    LAMBDA_AP_X    VALUE    RECEIVED    ERO^  */ 

/*  THE   OTHER    CLUSTER    VIA    THE    ETHERNET    TO  */ 

/*  THE    LA^BDA_B_Y    VALUE    CALCULATED    IN    THIS  */ 

/*  CLUSTER,    AND    COMPARE    THE    RESULT    TO    THE  */ 

/*  THRESHOLD    VALUE.  */ 

/»•*  •'■*  «JU  »*^  -J*  s'*  ->*  %i^  s'-  ~'t  V*  *■'•'  *  *  **•  fcV  •■"*  *•*  »*'  •■;-*  •*•  *•*'  *1*  V*  •**  *■'*  »'*  *w'^  *■'*  ^**  ***  ***  »'■•  **•*  >V  >V  V*  ***  v'*  ***  "**f  >**  ***  »'*  *■*■*  »'*  V-«  *"*  *■''  **^  V*  *V  V*  "J*  *'*     / 
O*  *r  or  *r  or  or  of  or  Jr  o*  or  o  or  or  o  o%  or  *r  of  or  *r*  of  of  or  o*  o*or  of  ^^  **r  or  o**  o*  o   of  of  or  *r  *r  o^  or  *r  o*  *r  *r  O-*  *r  or  o^  O1*  n*  or*  o*  *r  / 
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t2  =  lampda_e_y  +  lameda_ap_x; 

if  (t2  >  thresh)  then  dc? 
put  skip  li st ('result     =',t2,'is  >  threshold  '); 

end; 

else  do; 

put  ski?  list( 'result     =',t2,'is  <  threshold  ')? 
sne; 

do  1=0  to  1000; 

do  j=0  to  500;  /*  delay  loop  */ 

end; 
end; 

/V*  - '  -■ '  -'-  *V  ■*■*  ^*  "J-  *■'-"  *•  -  ~!-  *y  -1'  — '-»  *■'-*  *'*  -'■'  v-  v-»  »•*  •«J-'  *j*  v<*  *i-  "'-'  »''  -•*  -J'  "'*  v*  »' -  "'•*  *■■*  *''  **-  »**  *■*  -'»  "-1*  ^^  V*  ***  -'*  "■*  »'*  ***  -1-  V'  »*-  ■***  -'*  •>*«  »'*  - ■•  / 
j|»  *^  *^  *^  *^*  *i»  *p  »|»  *,■».  »p»  ^p  *^  *y*.  ■§■  *i*  i*  *i*  *e  *f  *i*  *%■  *»*  *k*  *^  *p  t*np  i-*  nn  or*  ^^  *¥■  ^*  ***  *<^  *r*  *^  *r*  *j*  t*  *i*  *!■*  **!■*  i*  *r*  *i*  *i*  *p  *r*  *i*  'i*  *t*  *p  *i*  / 

/*  */ 

/*   NOTIFY  BOARD  3  TO  CONTINUE  WITH  NEXT  INPUT  VECTOR  */ 
/^  ,y 

/  V  *4*  *■»*  '.*  ***  *v  *.*  *■'  *•*  *t*  *.^  *i*  *4*  ".*  *»*  »»*  *.■*  *t*  *i*  *•*  *i*  *i*  *,*  *,■•  5|»  *i» »i»  *i"  *1^  *,* *p  *i*  -»*  n~  1*  *p  '**  ^»*  *»*  *i*  3p  ***  **.*  n*  *«*  ***  *i*  *»*  *»*  ***  n*  *r  *»'  *r*  / 

CALL  ADVANCE(B2EVC); 
END;  /*  END  OF  DO  WHILE  (EOF  =  FALSE)  LOO?  */ 

PUT  SKIP(3)  LIST('END  OF  INPUT  DATA')? 
END  PB2; 

/«.'*  <•'<•  y*  y-  *'*  J-  %'*  «V  -*-  *■'*  vV  <J«  «JU  »'*  JU  *V  -1-  "■**  »'*  -^  -  <■'«  V'  *'■»  -1-  *'-  -'■*  »■>*  *-'•'  V'  V*  *•**  "-*'  «*'  ~*-  V'  -'  -  <■''  >'  -  ■>''  *-'-  ^-»  V*  -'-  -'"  -*-  *i*'  »'-  --  ••''  *V  *V  '■-  *-*  -  »'''  *■'-  "*-  »'*  »*-  / 
*\*  tt  -t*  *t  '!*  "r  f  'i*  f  t-  it  n*  o*  t*  *i%  */•  *  •*  *v  *i-  n*  *i*  nr  *i*  -t*  t*  'i*  i*  t*  n*  n*  •*<*  *i*  *>*  *r*  nr  *r  *i-  n-  *f  *i»  n*  'r*  n*  t  "i*  n*  *p  ***  n*  n*  i*  'i*  *m  t*  *i*  *(-  -r  *r  / 

/*  */ 

/i::    P33  is  resident  in  local  memory  of  5PC  3,  CLUSTER  B.  */ 
/*  */ 

/*    This  procedure  performs  the  following  ooerations:     */ 
/*  */ 

/:;c  1.  Loads  Quadratic  eauation  parameters  A,B,C,D.  */ 

/■'  2.    Feads  sensor  B  otservation  vectors  from  disf:.  */ 

/*  3.  Computes  the  Conditional  LLR  (  LAMBDA_BP_Y  )  */ 

/*         to  send  to  sensor  A  for  further  computation.  * / 

/*  4.  Submits  a  reouest  into  the  ER3  aueue  to  send  */ 

/*         the  CLLR  statistic  to  sensor  A.  */ 

/*  5.  Advances  eventcount  B1EVC  to  signal  sensor  A  */ 

/*         trat  its  awaited  statistic  is  available.  */ 

/*  */ 

*r  »i'  *>  *r-  y •  *r  ^*  ' .-  *n  *»■  *i*  n*  *»*  *•*  *r  f  f  *r  *r  *r  t  *P  *r  "r  *i-  *p  *•*  *•""  ***  *•*  *•*  V  *r  -<*  *r  'i*  *r*  *.-  i-  v  *t*  -^  *r  *r  n>  *r  *r  *»*  **•  *'"  *i*  *»*  iH  '<*  ***  *i*  *•*  nr  / 

/***  y*  y*  »**  *<-  »■»  -'-  y*  y-  »•*  *t,  y^  y,  j,  y,  »«„  x.,  ,j*  y,  j„  «■,  v*  +>*  y-  *v  **>  y^  y/  o^  »*-o-  »«>  y*  y#  y,  vi*  y«  »-^  «o  V*  V*  »•*  i"*  ^;  *!r  ***  *'*  ***  •t,«  ***  -,*  *'*  *';  *'*  if  i'  *F-  **    / 

PBS:  procedure; 

^IMCLUDE  'SYSDEF.PLI 'J 
%RE?LACE 
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PA        BY    '8000 'E4,  /*   PI    IS    SET    TO    THIS    VALUE    */ 

PB        BY    '8CC0'34t  /*   P2    IS    SET    TO    THIS    VALUE    */ 

ERB_BLOCK_LEMGTH  BY        20,/*    USED    TO    CONTROL    */ 

ERB_BLOCK_LENGTH_Ml  BY         19,/*    ERB      SIZE  */ 

TRUE  BY         'l'B, 

F*LSE  BY         '0'B, 

ONE  BY         '0001'B4i 

DECLARE 


/»»-  *U  V-  -'*  V*  ""  •*+   *<**'*  -■'  -1-  «■*«*  »'-  <-J-  J*  %»*  «I«*V  v  *'-  -.'-  Vr  -'■*  --,-  -'J  «■*■*  "''   -J~  s  .  .1.  o,  v*  ^  >■*  ->+  »'-  »**  -'-  *V  *•'*  *■»  »V  -'-'  «■'-  «■"*  *'*  ■»—  -''  V'  ****.'*  *'-  «'*  -•'     I 
»i*  *(*  *\*  1*  *|*  ^i*  *(*  ^i*  "T*  *^  *V*  *P  *^  *l*  *T*  *T*  *l*  *C  *V  *>*"  *»*  HP  *l*  1*  *|*  Hf**l*  1*  O*  T*  *l*  t*  *T*  *f*  *>*  *|*  T*  1*  *l*  HP  *l*  *t*  *T*  *(*  HP  *l*  *Y*  Hf*  HT*  *f  Hf*  Hs  *(*  *i"*  / 

/*  PARAFILE    CONTAINS    THE    FOLLOWING    PARAMETERS  */ 

/*  */ 

/*  1.    MATRIX/VECTOR   DIMENSION.                                         */ 

/*  2.    D    DIAGONAL    ELEMENTS    OF    TEE    MATRIX-A?.         */ 

/*  3.    CCL    EY    COL    ELEMENTS    BELOW    DIAGONAL    OF         */ 

/*  •                               MATRIX-A?.         */ 

/*  4.    D    ELEMENTS    GF   VECTCR-BP.                                          */ 

/*  5.    SCALAE-CP.                                                                           */ 

/*  */ 

/*           DATAFILE    CONTAINS    THE    FOLLOWING    VALUES  */ 

/*  »/ 

/*  1.    D-ELFMSNT    Y-VECT0R5 .                                                  */ 

/*  */ 

/  v*  ili  *■*  ****  *■*■*  v-  *''*  ^'*  **■*  ***  *'*  »'*  *•*  v*  *v  v?  **»  ***  w  v*  *v  v*  *'*  ***  v*  *•**  v*  >**  ***  **■*  ***  ****  ***■  »■*  *y  ^*  v*  ***  ***  ***  ^y  v*  ***  ***  *>**  »•*  **•  v*  *v  ^**  *•*  *•■*  v  »•*  / 

.  H*  HP  *l*  HP  HP  HP  HP  HP  H"*  HP  "i*  HP  *i"  HP  HP  HP  'I*  HP  hp  HP  HP  HP  HP  HP  HP  HP  HP  HP  HP  t*  *T*  *#*  *»*■  *i*  *V  1*  *»*  *i*  *|*  *>*  *is  *i*  *t*  *i*  *(*  *i*  *t*  *i*  *i*  *(*  *  I*  f*  t*  *i*  / 


(PARAFILE, DATAFILE)    FILE, 

EOF    BIT(l)    STATIC    I  NIT ( FALSE )  , 

(I, J, D.N)    FIXED, 

( A? (526) ,3P(32),CP,T1,Y(32))    FLOAT, 

/  *''  *'z   *'' 5'C  **£  ***  3*C  *'  j'i  ;''  5*C  j'c  5*2  **i  j"?  j'?  ,'i^C  J*2  *'»  ***  51*  *'i  ***  **'  y**'C  j'C  **S  ^'C  **£  *"'t  **'t  "*'*  '*'*  i'C  *'*  j'i  **C  **C  j'S  *'i  i*!  **C  *'-  i'2  **C  *''  *'C  *'J  **•  *C  *'*  *'»  / 

/*  */ 

/*  INDEX    VARIABLES    AND    CONSTANTS    USED    F0F.  */ 

/*  */ 

/*  INDEXING    IN    THE    ERB    (ErB_I\'DEX)  */ 

/*  SEQUENCING   &    CONTROL!    II, JJ,K    )  */ 

/*  IDENTIFYING    DATA    TRANSFER ( DATA_TY?S )  */ 

/*  IDENTIFYING    OPPOSITE    CLUSTEI-_ADDRES  3  */ 

/*  *l 

/  *."  -i*  ^i**,*  X*  -,»Ji-  J,*  5,C  ,,*  nC  5,2  ,^  5|C  5,2  5,2  ','*i'  ','  "*£  'i*  *i»  V  n*  't*  *t;-i*  :i-  *i*  -i»  *%*  *i^  V  -•*  *<*  *'  3?  *»*  '.*  *»*  'i*  ^>*  *i*  '.*  *i*  "i*  *r  '(*  -i»  *.*  'i*  *t*  i»  *»»  / 

EEB_INDEX  FIXED, 

(II, JJ)  BIT(16), 

pr  BIT(16)    STATIC    IN  IT  ( '0000 '34  )  , 

DATATYPE  BIT(8)       STATIC    I  N  I  T  (  '  01  'B4  )  , 

CLUSTER    ADDRESS  BIT(15)    STATIC    INIT (  '0031 'B4) , 
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/*j-  «ju  ..u  »  v  ■.'-»  «'#««  «j*  »i*  . •-  «.■»  kV  wl*  *>—  *•  '  »■'«•  ■**«•  V-  > ■«•  "-'''  **••  "-1*  V'  •>  V  *'*  *V  »V  *■'■*  V*  V*  *J|*  ~T'  *■'■*  "■'■*  V'  -'*  *■*■»  **■*  ■*■'*  *■'*  -'*  *■'*  ***  ^'  ***  V*  ■•'*  *'-  >**  »**  "J*  V*  "■'*  ■***  / 
-,.  n.  ^.  T  T  ,,«  Y  1*  T  T  1"T  I'T  f"r  T  T  ¥  TT-  T  *iwi*  Is  *»**0  1*  ***  nf*  T*  ***  *i*  *"i*  *C   T  *i*  HP  *»*  1*  »!**  *f*  ***  1*  *C  *T  ***  *i*  V  T"  '•*  HI"  *i"  T"  / 

/*  */ 

/*  POINTERS    ARE    USED    IN    THE    FOLLOWING    MANNER                 „    */ 

/*  */ 

/*  PI    SET    TO    PA    TO    BE    ADDED    TO    SEGMENT    ADDR    (?Se0        */ 

/*  P2    SET    TO    ?P    TO   EE   ADDED    TO    SEGMENT    ADDF.    0800        */ 

/*  */ 

/  *-,-»  5j%  *(%  ^|»  5j»  3,-*  »,■»  *^»  J|£  #|«  ..[■»  *y*  «•,«  ^i  *tj%  ^,-.  «p  *(»  ^|«  «■(£  *(■»  *-,».  5JC  *^  »JC  *-,-,  *p  *^»  -,»  3J5  3p  rfr  Sj*  *,■*  3^C  3J5  «-]-.  *f»  3j»  5J^  3^  3J-»  *t»  Jj»  #,»  »j»  *|»  >p  5,«  *-t»  ■#■,«»  3p  J,*  «>f%     ' 


(P1.P2)    POINTER, 


/.'-  it*  * '-  »**  »v  -''  •'*  «**  »'*  *'*  -'-  '  ■■'  »*-  *'-  V'  -V  «■'*  -''  *''  »'*  -'■*  *V  **•*  »V  ***  ***  •»'*  «■''  V-  -''  *'■'  *■'*  *■-  *■'■*  »*■*  »■'*  -1-  -'*  ***  ***■  V-  »*-  -'-  *■'*  -'*  -'-  »'■»  -'•*  *-*<*  »'*  -'*  *•'-  »■*  *'■*    / 
•v  *.*  -i*  -»»  i*  t  'i*  *i*  *»*  «v  «v  *»*  *i*  »r  V  nr  •"»*  V  *•*  *r  *t*  **k  *»■•  '**  't*  v  ***  '<*  '(*  *'■"  *»*  '**  *>■•  *•*  *p  '»"  ""**    <*  *»*  *i*  Ji*  *T  *r  *i*  -I*  'i*  *f*  *»*  •»-  'i*  *i*  t*  -i-  'i*   / 

/*  */ 

/*  THE   ETHERNET    REQUEST    PLOCK    (ERB)  */ 

/«  */ 

/*  ETHERNET    REQUEST    PACKET    (ERP)    STRUCTURE  */ 

/*  */ 

/*  IS    USED    IM    THE    FOLLOWING    MANNER  */ 

/*  •/ 

/*  COMMAND    =    1  FOR    DATA    TRANSFER    OVER    E-NZT  */ 

/*  TYPE  (MCT    USED    BY    THIS    PROCEDURE)  */ 

/*  VALUE  (NOT    USED    BY    THIS    PROCEDURE)  */ 

/*  REMOTE    ADDR  =    CLUSTER    ADDRESS    OF    DESTINATION  */ 

/*  '  */ 

/  »r  *.*  *i*  *r  ?r  *r  -^  *r*  ?*.*  *r  *r  *i*  »J*  *P  *r  •£  *t»  'o  ^r  **•*  *\*  *»^  i*  *i*  ^  *r  5r  *.*  *!*  *r  5J*  *J^  *r  *i^  »c  *i*  *1*  *r  *i*  *r  -r  *j*  ***  *r  ^r  V  »i*  -i*  *t*  *  *  *i*  *r*  *t*  -»*  / 


1    ER3(0:ERB_BLOC1C   LEN5TH_M1)    BASED    (PI), 
2    COMMAND  BIT(8), 

2    TYPE  BIT(S) , 

2    VALUE  BIT (16) , 

2    REMOTE    ADDR         BIT (16) , 


/-•*  J,  «V  v'«  JL>  *v  *•«  %i-  .V  *'-  «*«■  Jt«  «Kp  j-  «•'  *b  ***  *.*-  «v  V  »''  ~J*  -'-  -1-*  -'-  *' -  -'*  -'-  *•-  -'*  *'-  *'■*  *•''  »'-  -'*  *■'-  -*'  V*  *<'  *'*  »"*  -' -  *'-  *'-  ^'-  *■'*  ***  •**  -'■'  *•'-  *•''  -1'  *'-  -'•*  / 
*i*  •*•  -.""I'*  -r  *f  *v  1*  "r  *.**•*  *i*  'i*  n*  'i-'r  'i**-!-  *i*^  *v  *r  "C  *»■*  *i*  'i**!*  *i»  *»»  '1*11*  *i»  *.-  -1**1*  '1-  *r  n**!*  'i*  *i*  *i*  *•■■  *t*  *i*  *i*  *  *  *i**i*  1*  *»*■  *i""  *•*  ***  / 

/*  */ 

/*  B»SE    LAMBDA_RP_Y      AT    P2    =    PB     'OFFSET    ADD    TO    DJT«       */ 

/*  SEGMENT    -    0S00     )         */ 

/*  :;V 

-r-  re  t*  -t^  ■***  *i-  f  *\**v  »f  t*  t*  1*  f  *t   *r  '.-  v  *r-  V  *«*  -^*  *ir  *r  7i*  *»»n*  **"•  »»*•  n*  n*  *!*■  ^j1''  *r  *n  *r  t  ■*!"  n*  ^*  f  *n  i-  n*  *r*  i-  *r  *»*  "V  *r  "iN  T  *»"  n*  / 


LAMBDA_BP_Y    FLOAT    BASED (P2); 
/*   SFT    POINTEFS    TO    VALUTS    INDICATED    IN    REPLACE      ABOVE    -/ 
UNSPEC(Pl)    =  pa; 
0NSPEC(P2)    =  pb; 

75 


/*  */ 

/*  INPUT  PARAMETERS  FROM  DISK  FILE          •     */ 

/*  */ 

/*  MATRIX  S.  VECTOR  DIMENSION  (D  =  INTEGER)          */ 

/*  */ 

/*     CALCULATE  N  =  #  OP  MATRIX  ELEMENTS  TO  INPUT      */ 
/*  */ 

/*     MATPIX-A?  (SYMMETRIC)  */ 

/*       DIAGONAL    ELEMENTS    FIRST    (#  =  D)         */ 

/*        COLUMNS  BELOW  DIAGONAL  NEXT    (#  =  N-D)       */ 
/*  *  / 

/*     VECTOR-IP  (D  ELEMFMTS)  */ 

/*  */ 

/*     SCALAR-C?  (1  NUMBER)  */ 

/*  */ 

/«'  ■■  %f*   .'..  ..'-  UU  -'  -  »'*  •.'*  ■»'-  ..  >-  »^»  *.*.*  »**  *■'-  *■' '  «■'*  »''  *■'•  •>' *  ■»'-  ■"■'*  •»'*  ■"■'-  «V  ■"**  ">'*  •>'*  •'*  v*  *-'*  «■'*  ■*'*  ■»**  •»'-  -**  -'*  -'*  »'*  »'*  »'■'  *■'■»  »'■'  ••'•*  V'  «■'  *  ***  *•'*  *-'*  «'-  »'*  -  '  *'*  •>''  -'»  / 
*]■»  *1*  *,■•»  •?,*■  Jp  *(••  *,^  •«,»  ?;*  »,*  *|»  J,-»  *,»  *,"•  »|*  *,»  »j*  *,"  *|»  *,»  *",»  *k»  *,«  ^*  ',*■  *,*  *(»  ^j*  *]f»  *|»  *|S  *,»  *,•»  »,-.  *,«  »,»  »-,-  *,■*  -(-  ^»  *,^  *,*.  *(■•  JtH  *,^  *,»  *,»  -(»  -j»  *,»  -  »  »t".  *■,»  ••,*   / 

OPEN  FILE(PARAFILE)  STREAM  INPUT; 

GET  FILE(PARAFILE)  LIST  (D); 
N  =  ( (D  *  D)+D)/2? 

DO   1=1   to   n; 

get  file( para  file)  list  ( a? ( i ) ) ; 
end; 

do  1=1  to  d; 

get  file(parafile)  list  (3p(i))j 
end; 

get  file(pahafile)  list  (c?)i 
put  stip  list  ('dimension  =  ',d); 

/*V  »'*  »***!*  -'-  *.'-  -'*  -•«  «•*  ->'   »'-  »'■»  %■*  "•*  -'*  ».'*  »■*  »V  »'*■  *'*  •>'"  »**  •*'■»  -*-  »''  -'■•  V'  -.'■*  -*-  »'*  **-  "''  ■»'■*  «■'-  -»>*  V*  *'*  »'«»*  JU  **'  »**  aJU  -**  -.'*  «>.*  ■»'-  «JU  »*-  o*  -  -  *>-  »'^  Ju   / 
-r  *>*  'i» -i»  i»  *.*  n*  *i**v*  n*  ***•  *.*  *v  t  *i*-i*  »i*  *»*■  'f  v  *i*  *i*  «t*  *t*  'i*  '^'t'^,'  *»c  '•*  *t*  *t*  'i*  *»~  *r  Ji*  ^<*  *•*  ******  *»*  '•*  *i*  *t*  ***  *r* *r*  *»*  *i*  *<*  *i*  i*  *i*  -•*  *»*  / 

/*  */ 

/*         INPUT  AND  PROCESS  Y-VECTORS  */ 

/*  */ 

-.^  -.*  *.»  *,*  *i*  -t*  i»  -,*  nc  -t*  *i*  *\*  *i*  *t*  -i*  -i*  *r*  -.*  *r  'i*  *»*  -r  'i*  'i*  *f*  *»c  *»*  *?  ***  -r»  *\*  i*  *r  ***  m*  *.*  '^  i*  *t*  *.*>  «-t*  *,»  *i*  *i+  t»  -**  *i*  *.*  *t*  *.*  *i*  <v  7i*  *i*  / 

ON    ENDFILE(DATAFILE)    EOF    =    TRUE; 
OPEN    FILE(DATAFILF)    STREAM    INPUT; 
DO    WHILE (EOF    =    FALSE); 
CALL    AWA IT(E2EVC,K) ; 
PUT    SfC  IP  ^  2  ) ; 
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DO  1=1  to  d; 

SET  FILE(DATAFILE)  LIST  (Y(I))J 

PUT  SKI?  LIST('Y     C.i,')  =',y(i)); 

end; 

/*  store  (y-trans  )*( ap-matrix)*( y)  in  lambda_bp_y    */ 

lambda_bp_y  =  0j 
DC  J=l  TO  d-i; 
do  r=j+i  to  d; 

LAMBDA_BP_Y  =  LAMBDA_BP_Y+(AP(I+J+1  )*Y(  I  )*Y(  J  )  ) ; 

end: 

end; 

Tl  =  05 

do  1=1  to  d; 

Tl  =  Tl  +  (AP(I)*T(I)*Y(I)); 

end; 

LAMBDA  _B?_Y  =  (2*LAMBDA_BP_Y )  +  Tl? 
/*  ADD  LAMBDA  B?  Y  TC  ( BP-VECTOR  )*  ( Y  )  S,  STORE 


DO  1=1  TO  d; 

lambda_bp_y  =  lamed a_bp_y  +  (b?(i)  *  y(i)); 

end; 

/*    ADD    LAKBDA_3P_Y    TO    C?    &    STORE    IN    LAM3Di_B?_Y 
LAMBDA    B?    Y    =    LAMBDA    BP    Y    +    C?; 


*/ 


*/ 


>(*  1*  "V-  -I*  *<"  *f*  I"  *V 


5^5liJ 


*/ 
*/ 

*/ 

*  / 


-1*  n*  *  *  -v  *v*  *»*  *i%  *?-  n*  t  *»*  **  *r>  1*  n»  *r  1*  1*  *r  *»*  1*  ***  1*  "v  *r  *%*  *r  *p>  *i*  1*  1*  »j*  *»"  nr  *i*  *f*  *»*  -<*  *r»  1*  *r 

/* 

/*      SET  A  TICKET  TC  ENABLE  A  WRITE  TO  THE  ERB 
/* 

/  *r  ^r  *"r  or  -r  V  ^r  *i;  *r  V  o*  *i*  -v  n*  *r  n*  *r  *£  V  n*  n*  *i*  V  *.*  *r  *%*  *i*  *r  *r  *n  *r  V  *»*  ■?  r  W  1'  *i»  V  *r  V  *!'  v  V  r  v  '1*  t  v  ','  r  ;r  t  / 

II  =  ticket  (er3_wpite_regoest  ) ; 

/*  II  NOW  H*S  THE  VALUE  OE  THE  TICKEm  RETURNED         */ 

J  J    =  READ(ER3_W'RITE)  J 
/"  JJ  NOW  HAS  THE  VALUE  OE  ERB_WRITE  */ 

DO    WKILE(JJ    <    II  ); 

jj  =  read(erb__write)  ; 
end; 
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/*  if  ethernet  request  block   (ere)  is  full-busy  wait    */ 
jj  =  read(erb_read)5 

do  while((ii  -  jj)  >=  ere_block_length); 

jj  =  realm  erb_reab); 
end; 

/«'-  -'*  -.'»  •.'*  ■»•*  ***  *V  -■*  »'*  ***  %*>  -  '>•  ■>'  "''  *■'•  *-'*  -'*  »'■*  ***  »'*  -V  V*  ***  **»  V*  ***  ***  ■*■'*  «■'■*  ***  ■**  "■'»  ***  ***  ***  *'*  ***  -1*  *'*  *'*  -,-'  »'*  -'»  **•>  ***  V-  *'*  **■*  *'*  *'*  *•*  ***  »'*■  *'*  / 
*l»  »)•  'i*  *|*  ^,»  '|*  *p  *,•*   **»  *i*  *^  *p>  *,*  *y»  *|»  *|*.  *,*  *(%  *|%  *(*  *|»  ^|»  *>j*  *|»  *|*  #•*»  *|*  *lf*  *j*  *f»  *>|*  *,"  *,-»  *»|*  *f*  *(*  *|»  *|*  *>t(  *)*  *,*  *i»  *(*  *j*  *,»  J|*  *,*  *,*  *(*  *,*  #|*  *,*  *,*>  *(*   / 

/*  #/ 

/*   WRITE    TO    ERB    WHEN    k    SLOT   IS    OPEN  */ 

/*    COMMAND   =    1    FO^    DATA    TO    EE    TRANS EERED  */ 

/*    REMOTE   ADDR    =    DESTINATION    CLUSTER    ADDRESS  */ 

/*  */ 

/.■*  ,v  *'*  *i*  „o  *'*  ku  *i*  JL*  *'#  <**  «■•*  -'-  -J*  -'    -'■  JU  »'-  •**■  *'•  **-  *'*  -•-  »'-  *'*  »•*>  -1 '  V«  V*  »'*  -*'  •>'»  ■**  *•'*  -'-  *-'*  -**  °  *  *■'*  »V  «■»-  -*'  *'-  V*  *'*  »**  *'*  -'*  V*  »*-  **'  *V  -'*  -'-     / 
*p  *»*  't*  *i*  *i*  -,■  'i-  *,-  *i»  *,■»  <t*  n*  *v*  rt*  *i**y*  '  ■»  *f  *r  *■«*  n*  *i**r*  *»**i*  t*t  *v  »y»  -r  *r  t'  *V"i*  nr  *»*  *•■*  t  n*  *c  *i**i*"T»  n*  *»*  T**f*  *r  *»*  '.*'.■•  i1,  "i*^r  / 

ERE    INDEX    =    MOD(II,ERB_ELOCK_LENGTE) ; 

ERETERP_INDrX)  .COMMAND    =    DATATYPE; 
ERE(ERB_INDEX) .REMOTE_ADDR    =    CLUSTER_ADDRESS ; 

/v-  v*  -.'-  «j*  *»<  fc1*  ou  <•!.  w<-  o*  «i«  v*  »'-■  o*  *.u»v  *'-  >•*  Vr  *•#  v*  *V  ***  m»0V0  >•*■*•*!»  »t»  v*  if*  *>*  *»-  *>*  *'*  y*  »•*  o*  »**•  *.'*  v»  *■*  w»  v-  »»-  »»-  -'-  »>*  «i«y<ti<  v  •*'«•  *'-  / 

/#  */ 

/*  NOTIFY    MCORTEX    THAT    ERP    WRITE    IS    COMPLETE  */ 

/*  */ 

'i-  *p  *.--.■  -.-  *."»i"  "i-  *.*  v  'i-  *»-  *.-  *i*  *r  *r  *'•,■  *»*  *»*  *t*  *»"  *>"  *p  ***  *i  -»**i*  i*  *r  n*  n*  *i*  *i"  *r  ^*  *>"  *r  '.*»»*  -t-*  *r  *«**»*  *t*  *»**.-  t?  ».■*  -.*  *fr*c  *i*  *i-  «tt  / 

CALL    ADVANCF(ERB_WRITE) J 

/*'*  *V  *V  5**  «■•'  v-  -'-  >•*  y-  *■■'  V  *******  »'.***  *•,  »i,.  yu  -.■■****  *•*  *w  V*  *|*  *>*>-**••■■**)*  --***>  ■*■-  o-  *-,  *y  *■*  *•*  **>***  *•*  y*  **»  *j*  *»-  *********  ***>  *t*  *«*  *•»  **  ***.  *•«  / 

/*  */ 

/*  AN    ETHERNET    REQUEST    PACKET    (ER?)    IS    NOV,    SETUP  */ 

/*    IN    THE    ETHERNET    REQUEST    BLOCK       (ERB).    THIS    WILL  */ 

/*    SIGNAL    THE    DRIVER    PROCEDURE    ON    SO/UD    1    TO    FETCH  */ 

/*    THE    D^Tfl    STORED    IN    COMMON    MEMORY     ( L AMBD 4_B?_Y )    AT  */ 

/*    ADDRESS      0e00:9CC^-0800:BCC3   &   MOVE    IT    TO  */ 

/*    ADDRESS      ^300:80DA-0e00:90^D    (TRANSMIT_DATA_BLOCK )  */ 

/*    ALSO    IN    COMMON    MEMORY    TO    BE    PACKETIZED    AND    SENT    TO  */ 

/*    THE    RECEIVE_DATA_ELOCK    (RDB)    OF   THE    OTHER    CLUSTER  */ 

/*    ADDRESS      0b00:°67C-0«00:967?    WHERE    IT    IS    MOVED    TO  */ 

/*    ADDRESS      0800:SDD0-0800-9DD3    IN    THE   OTHEh    CLUSTERS  5V 

/*    COMMON    MEMORY    (L»MBD.fl    B?    Y).  */ 

/*  -      "  #/ 

/*<*  **>  Ov  *»*  *•*  ***  ^**  ttm  *•*  ***  *<*  *k*  ***  **>  *■*  ***  »>*  *■*  ■,»*  «<*  4.V  *!'  **■*  ***  **  *•*  *•*  ***  s1*  ***  V"*  ***  »'*  V*  ***  V*  V*  ***  ***  *'*  *'(•  *'*  »**  ***  "**  *•*  ***  *'*  *'*  ***  *'*  ***  *'*  •'*   / 
r^-   *]*  *■(*  *,  •  #^  *|*  *^»  *•>  *(*  *(*  *,fc  #(*  *>|*  #",^  *|*  ^^  /p  »i»  >,*  t-   *Y*  *I*  *f*  *T*  *l"  *i"  *l*  *l*  TF  1*  •§*  *1   *l*  *l*  *l*  ^*  *«*  *t*  1*  *t*"  *0  *1*  T*  *1*  *l*  *i*  *1*  *l*  ">*  "•*  *l*  '(*  *l*  *t*  / 

/>-  •  *i*  ^.'*  *< *  v«  - '-  V-  >'-  *•>  *  *  -J'  V*  *-'"  *•-  V*  "'*  *V  *-"*  *•'"  •J'   -v  *>*  st*  **'  *<*  ■**  -1'  -V  ***  -**  ***  s1*  *''  ***  V*  *'*  -'*  -■*  *''  »'■'  s*«  **>  *'*  s'*  '-  ***  ***  V*  •»'*  *'*  *'*  -'-   »'*  ***  / 
*,-  *>*  *§,  *,-  *,-  *f.  ?,*  *,*  *,.  -,-  *,**,,  -,*  *,.  »*,.  -**  *,t  *,»  *,%  *^*  *^  *,*  *f*  **.  *r  *V*  *|*  -^  *,*  *,*  ***  *•,-  *,-  *,*  *|*  *,«.  *,■»  *,*  *,*  *,-  *,*  -r>  *i-  +\-  -i*  ^»^  T1  *C-  "P   V  -f  t-  '■*  "i"  / 

/*  */ 

/';;  NOTIFY   OTHER    CLUSTER    THAT    DATA    IS    READY  */ 

/*  */ 
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CALL  ADVAMCE(BIEVC); 
K  =  ADD2BIT16(K,0ME); 
END;  /*  END  OF  DO  WHILE  (EOF  =  FALSE)  LOOP  */ 

PUT  SKIP(3)  LIST('END  OF  INPUT  DATA'); 
END  P33? 
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